Detection d'un ou deux zeros et suppression caractere

ok avec un macro, j'arrive dorénavant a supprimer les lignes dont je n'ai pas besoin, dans la suite du traitement, j'ai besoin de convertir ce genre de donée

00900220

01903452

00900232

03010950

premiere etape c'est supprimer les 0 de devant... si j'ai 00900220 je dois obtenir 900220

si j'ai 01903452, je dois avoir 1903452

donc si 1 zéro, le supprimer si deux 0.. les supprimer....

Salut le forum

Il suffit de multiplier les cellules par 1

Dim Cellule As Range
Dim Plage As Range

Set Plage = Range("G3:G14")
  For Each Cellule In Plage
    Cellule = Cellule * 1
  Next Cellule

Set Plage = Nothing

Mytå

Bonsoir,

Tu aurais du continuer sur ton 1er poste

Ce code relie les 2

Sub Ménage()
Dim Lg%
    Lg = Range("b" & Rows.Count).End(xlUp).Row  'dernière ligne colonne B
    '--- met en numérique la colonne B ---
    Range("x1") = 1
    Range("x1").Copy
    '--- collage spécial "Multiplication" ---
    Range("b1:b" & Lg).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
    Application.CutCopyMode = False

    '--- supprime lignes avec vide en colonne A ---
    On Error Resume Next                        'supprime le contrôle erreur
    Range("a1:a" & Lg).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Salut Mytå

Claude