Discussion :

[skual]

Bonjour à tous,

J'ai des nombres dans les cellules d'un classeur et je voudrais ajouter un 0 devant si ces nombres ne sont composés que de 3 chiffres, j'ai donc fait ceci:

Code :

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

1
2
3
4
5
 
If Len(Cells(i, 3).Value) = "3" Then
            buf = Cells(i, 3).Value
            Cells(i, 3).Value = "0" & buf
End If

Le souci c'est que, quelque soit la catégorie/type sélectionnée dans format de cellule, le 0 avant n'est jamais affiché.

Le code marche si je rajoute par exemple:

Code :

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

1
2
 
Cells(i, 3).Value = "10" & buf

C'est OK.

Mais pour ne rajouter qu'un seul 0, cela ne marche pas.

Auriez-vous une idée...

Merci pour vos réponses.

[SilkyRoad]

bonjour

tu peux essayer

Code :

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

Cells(i, 3).Value = "'0" & buf

bonne journée
michel

[skual]

OK ça fonctionne parfaitement bien avec ça.

Merci Michel et bonne journée.