Conversion date

Bonjour à vous

Je souhaite convertir des données "02.07.2020" en donnée "02/07/2020".

Quand je fait CTRL+F et que je remplace cela fonctionne. Du coup j'enregistre une macro mais quand je l'exécute ça me change le format et m'écrit "07/02/2020".

Voila ma maccro :

    Columns("A:A").Select
    Selection.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Je souhaite remplacer le . par / mais en gardant tjrs le même ordre "jj/mm/aaaa".

Merci d'avance

Nathan BOUVIER

Bonjour

Personne n'a une petite idée ?

Merci

Bonjour,

Pas besoin de VBA pour ça, regarde le .GIF ci-dessous ;)

Et à titre d'information voici un code vba pour remplacer des caractères :

(En partant du principe que tes données se trouve dans la colonne A (ou 1) à partir de la ligne 1)

Sub Remplacer()
Dim BD As Worksheet
Dim Dernlig As Long, i As Long

    Set BD = ThisWorkbook.Worksheets("Feuil1")
    Dernlig = BD.Range("A" & BD.Rows.Count).End(xlUp).Row
    For i = 1 To Dernlig
        BD.Cells(i, 1) = CDate(Replace(BD.Cells(i, 1), ".", "/"))
    Next i
End Sub

Je sais qu'il n'y a pas besoin de VBA mais je travail sur des fichier d'extraction donc à chaque fois que j'extrait je dois refaire (donc je veux automatiser).

Merci infiniment cela fonctionne parfaitement !

Bonne continuation,

Nathan

Très bien, bonne continuation ;)