Transformation des 0A en 000A

Bonjour à tous.

Voilà j'ai une colonne (J) de longueur variable avec des valeurs telles que 0A ou 12A ou tout autre chiffre suivi de la lettre A.

Je souhaiterais les transformer en valeur à 3 chiffres (000A, 001A, 012A etc...).

Quelqu'un pourrait-il m'expliquer comment faire en vba?

J'ai essayé en changeant le format de la cellule, mais j'ai besoin de ces données par la suite (concaténer) et donc le formatage ne marche plus, il faut bien que je change la valeur.

Merci..

Bonsoir,

supposons que tes données sont en colonne A, utilise le code suivant :

Sub test()
    For Each cel In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        cel.Value = WorksheetFunction.Text(WorksheetFunction.Substitute(cel, "A", ""), "000") & "A"
    Next cel
End Sub

Je suis étonné de voir la rapidité des réponses sur ce site.

Ca marche bien seulement j'ai oublié de dire que ces valeurs ne se trouvent que sur les lignes paires,...

Le problème avec ta macro c'est que je me retrouve avec des A dans les lignes impaires, qui doivent rester vides..

Re,

Ah ! si tu ne nous dis pas tout, on ne pourra pas deviner. Essaye comme ça alors :

Sub test()
    For Each cel In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If (cel.Row Mod 2) = 0 Then
            cel.Value = WorksheetFunction.Text(WorksheetFunction.Substitute(cel, "A", ""), "000") & "A"
        End If
    Next cel
End Sub

Ca marche parfait, merci beaucoup.