[VBA] Modification de valeur d'une cellule

Bonjour à tous !

J'ai un document excel dans lequel je cherche à changer une date (sous format de texte) de "mois/année" à

"année.mois.jour" (toujours sous format de texte) en sachant que le jour est toujours "01" et que cela doit s'adapter

selon les années.

J'ai donc essayé ceci mais sans succès :

For Each Cellule In Range("A2:A" & DL)

Next

Merci d'avance !

Bonsoir,

Merci de nous montrer ton fichier pour voir le format de cellules. Cela facilitera la compréhension du problème.

Désolé, je n'avais pas le fichier original donc je n'en avais pas posté, voila un fichier avec les dates et la macro correspondante.

bonjour,

voici une proposition qui fonctionne chez moi !

Testé sur des données comme exemple : 01/12, 02/12, 03/12 ...

transformées en : 12.01.01, 12.02.01, 12.03.01 ...

12 étant l'année bien sur !

Sub aaa()

For Each cel In Range("A2:A" & DL)
    If cel Like "[0-9][0-9]/[0-9][0-9]" Then
        Nb = Split(cel, "/")
            For i = 0 To UBound(Nb)
                If i = 0 Then
                    Mois = Nb(i)
                Else
                    Année = Nb(i)
                End If
            Next i
        cel.Value = Année & "." & Mois & ".01"
    End If
Next cel

End Sub

A plus !

Bonsoir,

A essayer :

Sub test()
    DL = Range("A" & Rows.Count).End(xlUp).Row
    For Each Cel In Range("A2:A" & DL)
        If Cel Like "1/*" Then Cel.Value = Right(Cel, 4) & ".01.01"
    Next Cel
End Sub

La solution de Raja fonctionne parfaitement, merci beaucoup