TV, Wi-Fi, GSM, 4G, 5G, GPS, FM, UHF/VHF, etc.

On écrit « carrousel » : le mot « carrousel » s'écrit toujours avec deux « r » et un seul « s ». On n'écrira donc jamais carroussel, carousel ou caroussel.

Pour les curieux, le mot « carrousel » vient de l'italien carosello et désigne historiquement un tournoi exécuté par des cavaliers partagés en quadrilles. Par métonymie, il désigne le lieu où se déroulait ces tournois, le carrousel. Enfin, par extension, il signifie également « tourner » puisque les chevaux tournent dans le carrousel.

À noter qu'en théorie le mot « carrousel » se prononce \ka.ʁu.zɛl\ (« carrouzel ») mais que dans l'usage, de nombreuses personnes préfèrent le prononcer \ka.ʁu.sɛl\ avec le son « sel ».

Première partie d'une vidéo traitant le sujet.

La suite ici : https://www.youtube.com/watch?v=6UlDUe4CfvA

10 conseils pour réduire les émissions de particules fines de votre foyer, tout en économisant du combustible – bûches ou granulés.

    Dim DebutExecutionMacro As Date

    DebutExecutionMacro = Now
    MsgBox "L'onglet Synthèse du fichier " + NomFichierCible + " est (re)créé." + vbLf + vbLf + _
            "Temps d'exécution : " & Format(Now - DebutExecutionMacro, "hh:mm:ss")

Pour un répertoire /

    Dim RepertoireExiste As Boolean
    If Len(Dir(Repertoire, vbDirectory)) > 0 Then
        RepertoireExiste = True
    Else
        RepertoireExiste = False
        MsgBox "Le répertoire n'existe pas pour ce RUN." & vbLf & Repertoire, vbExclamation + vbOKOnly
        Exit Function
    End If

Ne pas oublier l'attribut vbDirectory. C'est grâce à lui que la fonction Dir() sait qu'on est sur un répertoire.

Pour un fichier :

    Dim FichierExiste As Boolean
    If Len(Dir(Repertoire & ModeleNomFichier)) > 0 Then
        FichierExiste = True
    End If

Alternatives, en utilisant la référence Microsoft Scripting Runtime sous Excel

    Dim FS As Scripting.FileSystemObject

    Set FS = New Scripting.FileSystemObject

    If Not FS.FolderExists(Repertoire) Then
        MsgBox "Le répertoire n'existe pas" + vbCrLf + Repertoire, vbCritical, "Répertoire inexistant"
        Exit Function
    End If

Pour un fichier, utiliser FS.FileExists(Repertoire + "\" + Fichier).

Worksheets("Synthèse").Range("A1", Cells.SpecialCells(xlCellTypeLastCell)).EntireColumn.AutoFit

Ca permet d'accélérer le temps de traitement des macros, sans faire clignoter l'écran, ni avoir besoin d'interagir avec l'utilisateur pour confirmer manuellement les actions du code VBA (ex. : demande de confirmation pour la fermeture d'un classeur sans enregistrement ; demande de confirmation pour écraser un fichier à l'enregistrement ; demande confirmation pour supprimer des données ; etc.).

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Ne pas oublier de repasser les valeur à True en fin de traitement, sinon l'affichage restera figé.

Workbooks.OpenText Repertoire & "\" & FichierCSV, xlWindows, 1, xlDelimited, , , , True, , , , , , , , , , True

Le 2nd True signifie que le séparateur utilisé est un point-virgule.

Alternative :

    Workbooks.Open Filename:=CheminFichierSource & NomFichierSource
    Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).Copy
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, semicolon:=True

Windows est perclus de logiciels espions. Comment bien régler les paramètres de télémétrie et de confidentialité avant de le déployer.

En théorie, la combinaison de touches ctrl+fin positionne le focus sur la cellule la plus en bas à droite d'une feuille de calcul.
En pratique, cette combinaison de touches sélectionne la cellule sans tenir compte des suppressions de contenu. Il en résulte que si :

• ma dernière cellule est en C4
• je saisis quelque chose en E7
• la combinaison ctrl+fin m'envoie en E7
• je supprime la cellule E7
• la combinaison ctrl+fin m'envoie en E7
• je me positionne sur A1 puis enregistre le classeur
• la combinaison ctrl+fin m'envoie maintenant en C4

Le code VBA correspondant à la combinaison de touches ctrl+fin est Cells.SpecialCells(xlCellTypeLastCell).

Pour trouver la dernière ligne aillant eu un saisie, le code VBA correspondant est :

Cells.SpecialCells(xlCellTypeLastCell).Row

Le code suivant permet de trouver la dernière ligne non vide pour une colonne donnée (ici la colonne F).

Cells(Rows.Count, "F").End(xlUp).Row

Ah très bien, à retenir quand vous voyez que l'encodage n'est pas bon (je copie-colle):
« - Si dans votre page web vos accents ont la forme de "�", c'est que le texte est encodé en ISO et que le navigateur l'affiche en UTF-8.

• Si dans votre page web vos accents ont la forme de "é", "î" ou "Ã", c'est que le texte est encodé en UTF-8 et que votre navigateur l'affiche en ISO.
• Si dans votre page web vos accents ont la forme de "＀", c'est que généralement le texte est encodé en WINDOWS-1252 et que le navigateur l'affiche en UTF-8. »

La locution verbale « être Gros-Jean comme devant » est quelque peu désuète mais vaut le détour : elle signifie éprouver une désillusion ou encore, pour être plus précis, selon la définition du CNRTL : « avoir conçu de grandes espérances et se retrouver dans la même situation qu’auparavant. »

Pour programmer la mise en pause de l'exécution d'une macro, il suffit de saisir l'instruction Stop à l'endroit voulu dans le code.

L'Académie française rappelle, dans sa rubrique Dire, ne pas dire, que la locution « tout à fait » est de plus en plus utilisée, de manière erronée, en tant que synonyme de « oui ». Or, la définition de « tout à fait » est « entièrement ; absolument » (à ne pas confondre avec « assurément »).