Supprimer les lignes contenant un des critères

[seanbateman]

Bonjour,

Je suis une "daube" en visual basic mais il me faudrait trouver une solution permettant de supprimer au sein d'un tableau les lignes contenant en colonne "C" un des mots suivants :
foot, football, club, ville

Note : la colonne C contient des phrases donc :
OK : Il est beau mon bateau
KO : La superbe ville de Marseille

Nom du tableau : Tableau1
Nom de la feuille : Mentions
Nb. de lignes du tableau : 1748

Je ne sais pas si je suis clair. Une bonne âme pour m'aider ?

Merci d'avance 😀

 

[JNP]

Re : Supprimer les lignes contenant un des critères

Bonjour SeanBateman et biencenue 🙂,
En aussi brut de décoffrage que ton post :

Sub test()
Dim I As Integer
For I = 1748 To 1 Step -1
If Range("C" & I) Like "*ville*" Or Range("C" & I) Like "*foot*" _
    Or Range("C" & I) Like "*club*" Then Rows(I).Delete
Next I
End Sub

A noter que "foot" ôtera aussi "football" 🙄...
Bonne suite 😎

 

[seanbateman]

Re : Supprimer les lignes contenant un des critères

C'est magique VB quand on sait s'en servir ! Merci JNP c'est parfait 😉

 

[phlaurent55]

Re : Supprimer les lignes contenant un des critères

Bonjour à tous,

pour fignoler un peu le code de Jean-Noël

Sub test()
Application.ScreenUpdating = False
Dim I As Integer
For I = Range("C65535").End(xlUp).Row To 1 Step -1
If Range("C" & I) Like "*ville*" Or Range("C" & I) Like "*foot*" _
    Or Range("C" & I) Like "*club*" Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
End Sub

à+
Philippe