supprimer les 0 de gauche

[séverine45]

peut-on supprimer les zéros de gauche ?

J'ai une liste de 40 000 n° de factures qui sont
seulement du texte
seulement du numerique
ou bien les deux à la fois.

ex: j'ai 00000045 et je voudrais 45.

Je n'ai pas le même nombre nombre de zéros à gauche sur chaque ligne.
(ex: 00045 ; 000000202; 000000000ML065)

 

[Poupi]

Bonjour à tous,

Pour répondre au post #11 qui n'a rien d'embêtant :

Sub Epure()
Dim c As Range, x$, i%
Application.ScreenUpdating = False
For Each c In Selection
    x = c
    For i = Len(x) To 1 Step -1
        If Not UCase(Mid(x, i, 1)) Like "[A-Z]" Then x = Left(x, i - 1) & Mid(x, i + 1)
    Next i
    c = x
Next c
End Sub

A+

Job75 c'est magique ! merci beaucoup pour ton aide
Bonne journée