Bonsoir,

J'ai dans une sélection, des nombres sur 4 ou 5 caractères.
Je souhaite les passer en format texte sur 5 caractères en mettant un 0 si nécessaire en première position. En formule j'aurais mis =texte(c2;"00000")

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub traitement()
 
    Dim Cell As Range
 
    For Each Cell In Selection
 
    Cell = Format(Cell, "00000")
    Cell.Interior.Color = RGB(250, 100, 250)
 
    Next
 
 
End Sub
Ca ne fonctionne pas. Pourtant le format couleur lui fonctionne.

Une idée ? Merci