Bonjour j’ai plus de 500 références que je dois enlever le 0 devant (j’ai mis en standard) ça ne fonctionne pas car mes références se terminent par une lettre ou lettre après les 0 :
069911023MX je voudrais 69911023MX
00E4420000492 je voudrais E4420000492
000E504269559 je voudrais E504269559
dans l’attente d’une réponse bonne journée
Patricia
Sub test()
Dim c As Range
Dim s As String
With Worksheets("Feuil1").UsedRange.Columns("A") 'Adapter les noms de feuille et de colonne
For Each c In .Cells
s = c.Text
Do While Mid(s, 1, 1) = "0": s = Mid(s, 2): Loop
c.Formula = s
Next c
End With
End Sub
Bonjour Patricia,
Je peux te proposer une formule sans passer par le VBA pour la rédaction d’une formule.
La formule est un peu longue mais cela fonctionne.
Je joins le fichier Excel qui reprend les cas que tu as soumis à savoir
069911023MX
00E4420000492
000E504269559