Rajouter un caractère dans une cellule

Bonjour,

J'ai un petit problème que je n'arrive pas à résoudre.
Je voudrais ajouter un 0 devant un nombre dans une cellule.
Par exemple, j'ai le nombre 59866 dans une cellule et je voudrais que ça devienne 059866
Est il possible de le faire?

Merci d'avance.

Converti le en string.
Format cellule: Texte
Pas besoin de passer par VBA

par contre, si t'en a 100 à modifier un petit prog en vba serait utile

En fait j'avais déjà modifié le format de la cellule en mettant un nombre à 6 chiffres et ça fonctionnait.
Mais le problème c'est que lorsque je veux le reprendre dans une requête SQL, le 0 disparaît.
Et en effet j'en ai une bonne quantité à modifier et je compte l'insérer dans un programme.
Mon problème c'est que je veux modifier le texte de la cellule en rajoutant seulement un 0 devant.

Que quelqu'un me reprenne si je dis des bétises :

Code:

---

1 2 3 4 5 6 7 8

Sub rajouteZeroAvant() For y = 1 To dernièreLigne 'à déterminer selon ton fichier For x = 1 To dernièreColonne 'à déterminer selon ton fichier Cells(y, x) = "0" & Cells(y, x) 'ou y sont tes lignes et x tes colonnes. Next x Next y End Sub

---

Avec une boucle For Each tu peux également traiter chaque cellule d'une certaine plage.

Le code de Lionhigh n'est pas mal mais il faut ajouter
Cells(y,x).NumberFormat = "@"
avant le "0" & cellule, pour transformer la cellule en texte

Citation:

---

Envoyé par pedrolahn

En fait j'avais déjà modifié le format de la cellule en mettant un nombre à 6 chiffres et ça fonctionnait.
Mais le problème c'est que lorsque je veux le reprendre dans une requête SQL, le 0 disparaît.
Et en effet j'en ai une bonne quantité à modifier et je compte l'insérer dans un programme.
Mon problème c'est que je veux modifier le texte de la cellule en rajoutant seulement un 0 devant.

---

As-tu pensé de modifier le format de cellule automatiquement sur un worksheet_change? Du genre :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then ' remplace par la cellule désiré Target.NumberFormat = "000000" End If End Sub

---

J'ai réussi en mettant le code suivant:

Code:

---

ActiveCell.Value = "0" & ActiveCell.Value

---

Merci beaucoup à vous tous pour votre aide.