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.