Question VBA excel

Titou -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
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 Messages postés 333 Statut Membre
     
    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
    0
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
    0