[VBA] équivalent fonction TEXTE dans une boucle sur plusieurs colonnes

[Xlcium]

Bonjour,

Je souhaite lire le contenu d'une colonne dans un classeur (AB) et si la longueur du nombre contenu dans la cellule n'est pas égale à 8, j'ajoute des zéros à la valeur lu mais en colonne (F).

J'ai codé ça (ci dessous) pour le moment. Mais je suis incapable de transformer la fonction Texte d'excel en VBA...

J'ai déjà passé plusieurs heures à travers le forum, je n'ai pas trouvé...

Par avance, merci de votre aide.

Sub Macro3()

Dim Cell As Variant

Range("AB:AB").Select

For Each Cell In Selection

If Len(Cell.Value) <> 8 Then

" je voudrais ajouter des zéros à la cellule en cours
''il faut alors mettre cette donnée en colonne F
"le code ci dessous ne donne rien
''ActiveCell.FormulaR1C1 = "=TEXT(" & Cell & ";""00000000""))"
End If

If Len(Cell.Value) = 8 Then

'' tata = MsgBox("ok format de nombre sur 8 caractères", vbOKOnly)

End If

Next Cell
End Sub

 

[youky(BJ)]

Re : [VBA] équivalent fonction TEXTE dans une boucle sur plusieurs colonnes

Bonjour
cela suffit . . .
Range("AB:AB").NumberFormat = "00000000"

Bruno

 

[Xlcium]

Re : [VBA] équivalent fonction TEXTE dans une boucle sur plusieurs colonnes

Bonjour,

Merci beaucoup youky. c'est troublant de simplicité...moi qui cherchait midi à 14h...

Bonne journée