Discussion :

[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

[ucfoutu]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dodo28]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Bonsoir,

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 :

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 !

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lynx92260]

Bonjour ,

J ai testé cette fonctionnalité avec cette formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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

[dodo28]

bravo, merci beaucoup