Les macros de retraitement

Sur des dates

Imaginons ici que vous ayez importé des données à partir de votre application de gestion. Les dates présentes dans cette liste sont sous la forme AAAAMMJJ et ne peuvent pas être traitées directement par Excel comme des dates.

Nous allons donc créer une fonction personnalisée permettant de transformer ces dates au format JJ/MM/AAAA. Cette fonction pouvant vous être utile dans d’autres cas, elle est à placer dans votre classeur de macros personnelles.

Ouvrez le classeur CorrectionDates.xlsm.

Ci-après le code à saisir dans VBA dans le module GestionDates (vous pouvez aussi utiliser le fichier Sub Dates.txt)  :

Function TDate(VDate As String) As Variant 
    If Len(VDate) <> 0 Then 
        TDate = CDate(Right(VDate, 2) & "/" & Mid(VDate, 5, 2) & "/" & Left(VDate, 4)) 
        Else 
            TDate = "" 
    End If 
End Function 
 

Une fois la fonction créée, elle est directement utilisable dans les calculs :

Sur des noms/prénoms

Parmi les importations effectuées, vous aurez parfois à corriger certaines informations. Dans l’exemple ci-dessous, les noms et prénoms de nos salariés ont été saisis dans une même colonne. De plus, les règles de saisies pour les minuscules/majuscules n’ont pas été...