Enllever des zéro inutile devant les autres chiffres

[matrix]

Bonjour,

Je voudrais savoir comment enllever le ou les zéro(s) devant un chiffre en script vba.

Dans la colonne A2 en descendant, il y a des numéros ex: 007895, 0189752, 098562, 0000017 etc.

Je voudrais faire en sorte qu'and cliquand sur un bouton VBA, qu'il m'enlleve les zéro superflut devant comme exemple dans 0000017 deviendrait 17.

Comment faire s.v.p.

Merci de votre aide.

 

[Staple1600]

Re : Enllever des zéro inutile devant les autres chiffres

Bonsoir

Sub nozeros()
Dim i As Long
For i = [A65536].End(xlUp).Row To 1 Step -1
Range("A" & i).Value = Val(Range("A" & i).Text)
Range("A" & i).NumberFormat = "0.00"
Next i
End Sub

 

[Raja]

Re : Enllever des zéro inutile devant les autres chiffres

Bonsoir,

Faut-il absolument passer par VBA ? Si tu sélectionnes les cellules, il y a un message d'erreur qui s'affiche. En cliquant sur ce message, tu as un choix de les convertir tout en numérique.

édit : salut job75. Pas de formalisme, on peux se tutoyer non.

 

[job75]

Re : Enllever des zéro inutile devant les autres chiffres

Bonsoir,
Vous avez raison Raja, le plus simple est de convertir en numérique. La meilleur méthode pour cela est la suivante :
-cliquer sur une cellule vide et la copier
- ensuite sélectionner toute la zone de texte et faire Collage spécial avec addition.
A+

Edit : Raja, effectivement quand toute la zone est sélectionnée votre méthode est la plus rapide

 

[Staple1600]

Re : Enllever des zéro inutile devant les autres chiffres

Bonsoir raja, job75

Je voudrais faire en sorte qu'and cliquand sur un bouton VBA

D'ou ma réponse en VBA 😉


Toujours en VBA, avec la méthode de job75 😉

Sub Macro1()
Range("IV11111").Clear
Range("IV11111").Copy
Range("A1:A" & [a65536].End(xlUp).Row).PasteSpecial xlAll, xlAdd
Range("A1").Select
End Sub

 

[matrix]

Re : Enllever des zéro inutile devant les autres chiffres

Merci beaucoup Staple1600,

Les 2 façons fonctionne, mais je vais utiliser la 2ième.

Merci encore 🙂