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

Xlcium

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
12
Affichages
541
Réponses
7
Affichages
485

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof