Question VBA excel

Titou -  
Bonjour,

J'ai un document excel. Dans une colonne j'ai des choses comme "toto"; "tata"; "titi 00"; "00 tutu 00"

Je recherche à enlever les 0.

Je comprend pourquoi il m'efface ma cellule (Ici: "Then cellule = "" ") mais je ne sais pas comment dire de remplacer le 0 par rien.

Merci

Sub Effacechiffreetautre()
Dim i As Integer
Dim cellule As Range
For Each cellule In Range("D2:D11897")
If cellule Like "*0*" Then cellule = ""
Next

End Sub

2 réponses

  1.  eriiic Contributeur
    Bonjour,

    ou bien :
    For Each cellule In Range("D2:D11897")
    cellule = Trim(Replace(cellule, "00", ""))
    Next cellule

    Trim étant là pour enlever les éventuels espaces superflus restants à droite et à gauche.

    eric
    1. Co_nexion
      Bonjour,

      Voici une macro obtenu par enregistrement qui devrait t'aider 

       Sub Macro()

    Cells.Replace What:="0", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub


      Bon courage