Question VBA excel

Fermé

Titou - 30 mai 2012 à 15:15
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 30 mai 2012 à 17:21

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:

Question VBA excel
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

2 réponses

Réponse 1 / 2

Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015
30 mai 2012 à 17:00

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

Réponse 2 / 2

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
Modifié par eriiic le 30/05/2012 à 17:21

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

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters