Bonjour,

Je bute sur ce petit problème de langage :
Comment faire pour que dans des cellules excel sélectionnées suivantes

00702A DEVIENNE 702A
000152B DEVIENNE 152B

je vous joins ci-dessous la procédure dans laquelle je souhaiterais remplacer le msgbox par une formule effaçant le zéro . du style

If Left(celltest, 1) = 0 Then Left(celltest, 1) =null
mais celà ne fonctionne pas .

merci de votre aide


Sub SUPPRIMEROAGAUCHE()

Dim zoneatester As String
zoneatester = ActiveWindow.RangeSelection.Address
If zoneatester = Null Then
MsgBox "select zone", vbInformation, "CHOISIR"

Else
Dim celltest As Range
For Each celltest In Range(zoneatester)

If Left(celltest, 1) = 0 Then MsgBox Left(celltest, 1), vbInformation, "VALEUR GAUCHE " Else MsgBox Left(celltest, 1), vbInformation, "VALEUR GAUCHE "
Next
End If
End Sub