XL 2019 VBA Date Format Anglais vers Français

vgendron

XLDnaute Barbatruc

• 2 Septembre 2021

• #2

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

 

Vote positif 1 Vote négatif

Solution

pierrejean

XLDnaute Barbatruc

• 2 Septembre 2021

• #3

Bonjour
Avec sub transformée en fonction

 

Pièces jointes

• T.xlsm

  15.7 KB · Affichages: 20

Vote positif 1 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Septembre 2021

• #4

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

 

Pièces jointes

• T.xlsm

  16.4 KB · Affichages: 7

Vote positif 0 Vote négatif

R

Rossoneri83

XLDnaute Nouveau

• 2 Septembre 2021

• #5

Bonjour,

ci-joint fichier

Bonne journée

 

Pièces jointes

• T.xlsm

  18.1 KB · Affichages: 17

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 2 Septembre 2021

• #6

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

 

Vote positif 0 Vote négatif

R

Rossoneri83

XLDnaute Nouveau

• 2 Septembre 2021

• #7

pierrejean à dit:

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

Cliquez pour agrandir...

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

merci

 

Vote positif 0 Vote négatif

bambi

XLDnaute Occasionnel

• 3 Septembre 2021

• #8

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 😉 ☀️

 

Vote positif 0 Vote négatif