Question VBA excel

Titou -  
eriiic Messages postés 24603 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


A voir également:

2 réponses

Réponse 1 / 2
Co_nexion Messages postés 328 Date d'inscription   Statut Membre Dernière intervention  
 
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
Réponse 2 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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