Forcer un format sur 5 caractères

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:

---

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

Salut,

Ajoute une apostrophe et ta valeur. Sinon Excel re-interprete en nombre.

Code:

---

Cell = "'" & Format(Cell, "00000")

---

Bien sûr. Ca fonctionne parfaitement. Un grand Merci :D

Citation:

---

Envoyé par deedolith

Salut,

Ajoute une apostrophe et ta valeur. Sinon Excel re-interprete en nombre.

Code:

---

Cell = "'" & Format(Cell, "00000")

---

---

bonjour,
cette façon de faire converti la cellule en texte pas facile de faire de somme après!

Code:

---

Cell.NumberFormat="00000"

---

Il faut savoir ce que l'on veut:
- Si on veut des zéros significatif, ce ne sont pas des nombres mais du texte.
- Si on en veut pas, ça peut être des nombres ou du texte.

Mon besoin était bien d'avoir le chiffre en format texte car il s'agit de numéro de magasins, donc pas de Somme à faire.
Mais merci pour le format numérique à 5 chiffres. Je mets dans ma boîte à outil, 😁