XL 2019 VBA Date Format Anglais vers Français

bambi · 2 Septembre 2021

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

VB:

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 · 2 Septembre 2021

bonjour,

il suffit de faire une boucle toute simple

VB:

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

vgendron · 2 Septembre 2021

bonjour,

il suffit de faire une boucle toute simple

VB:

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

pierrejean · 2 Septembre 2021

Bonjour
Avec sub transformée en fonction

sylvanu · 2 Septembre 2021

Bonjour Bambi,
Un essai avec :

VB:

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 · 2 Septembre 2021

Bonjour,

ci-joint fichier

Bonne journée

pierrejean · 2 Septembre 2021

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

Rossoneri83 · 2 Septembre 2021

pierrejean à dit:
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 · 3 Septembre 2021

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

XL 2019 VBA Date Format Anglais vers Français

bambi

XLDnaute Occasionnel

Pièces jointes

vgendron

vgendron

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Rossoneri83

XLDnaute Nouveau

Pièces jointes

pierrejean

XLDnaute Barbatruc

Rossoneri83

XLDnaute Nouveau

bambi

XLDnaute Occasionnel

Discussions similaires