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