modification de format (numerique=>texte) et ajouté un 0 devant tout les numeros

bonsoir
j'ai une colonne de plus de 1800 lignes qui comportent des nombres(354001, ou 12 ou 1354 etc..). Je voudrais que tous les nombres ne comportant pas au moins 6 chiffres prennent un ou plusieurs 0('000012 ou '003215 etc) devant en format texte.
Si quelqu un de gentil peut m orienter!
merci

Bonsoir,

En format "texte" ? ===>> String

Code:

---

1 2 3

Dim toto As String toto = "1234" MsgBox Format(toto, "000000")

---

bonsoir voila j en suis la mais quand j applique ma macro tous les chiffres ce mettent en "faux00"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub testconcatener2() Dim code As String   Columns("A:A").Select ' Mise au format texte de la cellule du code NumberFormat = "@" ' Définit le code en fonction de sa longueur Select Case Len(code) 'code inferieur a 6 chiffres Case Is < 6 Columns("A:A") = code & Right$("000000", 6 - Len(code)) Case Else Columns("A:A") = Left$(code, 6) End Select End Sub

---

merci

Bonsoir,

Citation:

---

Envoyé par dodo28

bonsoir
j'ai une colonne de plus de 1800 lignes qui comportent des nombres(354001, ou 12 ou 1354 etc..). Je voudrais que tous les nombres ne comportant pas au moins 6 chiffres prennent un ou plusieurs 0('000012 ou '003215 etc) devant en format texte.
Si quelqu un de gentil peut m orienter!
merci

---

et :

Citation:

---

NumberFormat = "@"

---

Il faudrait s'entendre !

Ceci étant dit : NumberFormat (pour des nombres) admet la même syntaxe que Format ...
Et si tu ouvrais ton aide en ligne sur NumberFormat, en laissant tes cellules au format numérique, au lieu de les passer en format texte (ton 1er message) ?
Et si tu les passes en format texte, tu connais déjà la réponse !

Mais un mélange des deux : non !

Tu peux aussi éviter du code en utilsant la formule texte

Code:

---

=Texte(A1;"'000000")

---

Ne pas oublier l'apostrophe avant les 0 pour éviter la convertion numérique automatique


Ou si tu souhaites vraiment mettre du code

Code:

---

Range("B1").Value = Application.WorksheetFunction.Text(Range("A1").Value, "'000000")

---

Bonjour ,

J ai testé cette fonctionnalité avec cette formule

Code:

---

=SI(NBCAR(A2)<=6;TEXTE(A2;"000000");A2)

---

Evalue le nombre de caractere de la cellule si inferieur ou égale à 6 je la formate sinon tels quels


Bon test

bravo, merci beaucoup