XL 2019 VBA Date Format Anglais vers Français

[bambi]

Bonjour à tous
J'ai un fichier avec dans la colonne A des dates au format anglais
J'ai trouvé un petit bout de code de @patricktoulon qui me modifie parfaitement ce format anglais vers le format français
Mais il n'est que pour la cellule A1

cells(1,1)=trim(format(cells(1,1),"mm/dd/yyyy"))

Je voudrais appliquer cette macro sur la range (A1:A30)
Je vous met le fichier en pièce jointe
Merci d'avance de votre aide

 

[vgendron]

bonjour,

il suffit de faire une boucle toute simple

Sub dateGBF()
For i = 1 To 30
    Cells(i, 1) = Trim(Format(Cells(i, 1), "mm/dd/yyyy"))
Next i
End Sub

 

[pierrejean]

Bonjour
Avec sub transformée en fonction

 

[sylvanu]

Bonjour Bambi,
Un essai avec :

Sub dateGBF()
    Dim L%, T
    For L = 1 To 30
        T = Split(Cells(L, 1), "/")
        Cells(L, 1) = Format((T(1) & "/" & T(0) & "/" & T(2)), "mm/dd/yyyy")
    Next L
End Sub

 

[Rossoneri83]

Bonjour,

ci-joint fichier

Bonne journée

 

[pierrejean]

Re
à @Rossoneri83
Tu devrais vérifier !!!!!
notamment les résultats lignes 17 et 18

 

[Rossoneri83]

Re
à @Rossoneri83
Tu devrais vérifier !!!!!
notamment les résultats lignes 17 et 18

oups !!! tu as raison
la correction : Cells(i, 1) = Trim(Format(Cells(i, 1), "mm/dd/yyyy"))

merci

 

[bambi]

Bonjour à tous
Et un grand merci pour toutes vos solutions
Pour mon fichier, je retiens tout simplement la 1ère, celle de @vgendron
Mais je note précieusement les autres car mon fichier source change régulièrement et elles pourraient m'être utiles.
Très bonne journée à tous