Ajouter "0" devant un nombre

Bonjour :

J'ai une colonne de nombre :

A
5654
8541
...

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

Code:

---

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.

Bonjour,

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

Code:

---

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

---

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.

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?

Citation:

---

Envoyé par DonkeyPuncher

Bonjour,

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

Code:

---

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

---

---

Rebonjour:D

Même question.

Bonjour,

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

Bonjour

essai

Code:

---

1 2	Selection.NumberFormat = "00000"

---

Bonjour,

Citation:

---

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

Citation:

---

Envoyé par Theze

Bonjour,


"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

---

Cela marche bien. Merci pour les aides des autres aussi. Problème résolu.
Bonne fin de journée à tous.