Suppression de ligne contenant un mot

[jlb]

Bonjour,
je souhaite supprimer les lignes qui contiennent le mot “annulé”
Merci de votre aide

[orguyrine]

Bonjour

Tu peux essayer le code suivant avec une macro

Sub suppr()
Dim cellRecherche As Range, Mot As String
Mot = InputBox("Mot à rechercher", "Effacement ligne")
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
While Not cellRecherche Is Nothing
cellRecherche.EntireRow.Delete
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
Wend
End Sub

[jlb]

Bonjour,
ça bug sur :
Set cellRecherche = ActiveSheet.Cells.Find(annulé, xlPart)

[Valky]

Il manque probablement des guillemets :
Set cellRecherche = ActiveSheet.Cells.Find(“annulé”, xlPart)

[jlb]

ça bug quand même avec les guillemets.

[Valky]

Bonjour @jlb,
Voici un fichier test reprenant la macro écrite par @orguyrine, légèrement aménagée (sortie de macro si on annule la recherche).
Suppression des lignes annulé.xlsm (31,8 Ko)

[jlb]

Merci Valky, ça fonctionne.
ça me semble pourtant être le même scripte ?
J’indique la résolution du problème