Ajouter caractères dans une plage de cellules déjà remplies

[kramps]

Bonjour,

Dans la colonne B d'un tableau excel j'ai dans chaque cellule des chiffres à 4 ou 5 caractères.
Je souhaiterai par le biais d'une macro ajouter soit 2 ou 3 zéros devant chaque chiffre pour obtenir 7 caractères tout en gardant un format de cellule de type Texte.

J'ai bien trouvé ceci:

Dim x As Variant, r As Long, c As Long
Application.ScreenUpdating = False
x = Range("B1", Cells(Rows.Count, "B").End(xlUp))
For r = 1 To UBound(x, 1)
For c = 1 To UBound(x, 2)
If IsNumeric(x(r, c)) Then x(r, c) = "000" & x(r, c)
Next c: Next r
Range("B1", Cells(Rows.Count, "B").End(xlUp)) = x

Mais elle ajoute un nombre fixe de zéros or je souhaiterai ajouter trois zéros pour les cellules à 4 chiffres et deux zéros pour les cellules à 5 chiffres.

Merci d'avance pour votre aide!

 

[JCGL]

Re : Ajouter caractères dans une plage de cellules déjà remplies

Bonjour à tous,

Peux-tu essayer avec :

Sub Test()
Dim Cel As Range


Application.ScreenUpdating = False


For Each Cel In Range("A1:C10")
If IsNumeric(Cel) Then Cel.NumberFormat = "0000000"
Next Cel
End Sub

A + à tous

 

[kramps]

Re : Ajouter caractères dans une plage de cellules déjà remplies

Bonsoir,

Je suis désolé, mais çà ne fonctionne pas du tout, il ne se passe rien.

Une autre idée?

 

[JCGL]

Re : Ajouter caractères dans une plage de cellules déjà remplies

Bonjour à tous,

Evidemment que cela fonctionne... Tu penses bien que j'ai testé sur un fichier.

Merci de relire la Charte XLD concernant le dépôt de fichier pour une tentative d'aide optimisée.

A + à tous