Discussion :

[FrancisZheng]

Bonjour :

J'ai une colonne de nombre :

A
5654
8541
...

Je veux rajouter "0" devant chaque nombre :
B
05654
08541
...

Code :

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

1
2
3
4
5
6
Sub bbb()
Dim i%
For i = 1 To 5
    Cells(i, 2) = "0" & Cells(i, 1)
Next
End Sub

Mais rien ne s'est passé.

Merci d'avance.

[DonkeyPuncher]

Bonjour,

En passant le format de la cellule en text cela est-il gênant?

Code :

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

1
2
 Cells(i, 2).NumberFormat = "@"
Cells(i, 2) = "0" & Cells(i, 1)

[Philippe Tulliez]

Bonjour,
Pour forcer un nombre fixe de chiffres en ajoutant des 0 pour les 0 non significatifs, il faut utiliser la fonction FORMAT pour le VBA et TEXTE pour excel version française.

[FrancisZheng]

Bonjour :

Merci de m'avoir répondu. Mais de cette façon il y aura un petite triangle verte qui apparaîtra. Est-ce qu'on pourrait l'éviter?

Bonjour,

En passant le format de la cellule en text cela est-il gênant?

Code :

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

1
2
 Cells(i, 2).NumberFormat = "@"
Cells(i, 2) = "0" & Cells(i, 1)

Rebonjour

Même question.

[SfJ5Rpw8]

Bonjour,

pas besoin de macros ... tu fait format , personnalisé 000000

[lionel86500]

Bonjour

essai

Code :

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

1
2
 
Selection.NumberFormat = "00000"

[Theze]

Bonjour,

Mais de cette façon il y aura un petite triangle verte qui apparaîtra. Est-ce qu'on pourrait l'éviter?

"Options Excel"-->"Formules"-->paragraphe "Vérification des erreurs"-->décocher "Activer la vérification des erreurs en arrière plan" et il n'y aura plus les triangles verts