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. 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
    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