macro

[david.ridelaire]

Bonjour

Je souhaiterai mettre en place un petit programme VBA
qui me permettrait de supprimer les lignes dont les cellules de la colonne B ne contiennent pas les mots renard manteau coursier ou voiture
d'avance merci pour votre réponse

 

[camarchepas]

Re : macro

Bonjour ,

quelque chose comme ceci :

Sub supprime()
Dim Lignefin As Long
Dim Tourne As Long
Lignefin = Range("B" & Rows.Count).End(xlUp).Row
For Tourne = 2 To Lignefin
 If InStr(1, Range("B" & Tourne), " renard, manteau, coursier, voiture") = 0 Then Rows(Tourne).Delete
Next Tourne
End Sub