supprimer les 0 de gauche

job75 à dit:

Bonjour à tous,

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

VB:

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+

Cliquez pour agrandir...