zeros à enlever

[RELIQUET]

Bonjour,

J'ai un fichier article dont les codes ont été rentrés avec des zeros en debut.
exemple 00000a21710.Je veux supprimer tous les zéros qui se trouvent devant la référence. Puis-je le faire de façon automatique sans avoir à me taper les 10 000 références manuellement?

Merci pour votre réponse
reliquet@free.fr

 

[yvon51]

bonjour le forum, Reliquet

peut-être le format des cellules est-il en texte
auquel cas, le mettre en nombre.

yvon

 

[Eric C]

Bonjour le forum
Bonjour RELIQUET, Yvon

En espérant que toutes tes cellules comportent 4 zéro :

Dans un module :

Sub remplacerZéro()
Cells.Replace What:="0000", Replacement:=""
End Sub

Tu sélectionnes ta colonne et lances la macro.
@ ++ Eric C

 

[Moa]

Salut Reliquet !

J'ai fait une macro complémentaire qui fait ce travail !

Tu la trouveras en zone téléchargement, rubrique "Utilitaire", et s'appelle "Moa's Selections"

Avec le premier onglet tu va selectionner "Contenant" et dans le textbox, tu mets 0.

Puis avec ActionII et l'option Sup Mot, en ayant mis 0 dans une cellule de ref de ton choix, tu lances la macro et voilà le travail sera fait !

Et ce quelque soit le nombre de zéro que contiendra chaque cellule.

@ +

Moa