Discussion :

[pedrolahn]

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.

[lionhigh]

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

[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.

[lionhigh]

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

Code :

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

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.

[guillaume89]

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

[HabsWarrior]

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 :

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

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

[pedrolahn]

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

Code :

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

ActiveCell.Value = "0" & ActiveCell.Value

Merci beaucoup à vous tous pour votre aide.