Discussion :

[François9272]

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

[deedolith]

Salut,

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

Code :

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

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

[François9272]

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

[Thumb down]

Salut,

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

Code :

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

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

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

Code :

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

Cell.NumberFormat="00000"

[deedolith]

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.

[François9272]

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, 😁