Discussion :

[soussman]

Bonjour à tous,
je suis un débutant en VBA et je cherche une macro qui me permettre de supprimer les lignes qui contient des mots spécifiques dans un tableau.
Merci à l'avance.

[BENNASR]

bonjour ami
La demande n'est pas claire au moins pour moi
ma réponse dans le contexte suivant :
un onglet avec la liste des mots à utliser comme critères (colonne A)
un onglet base ou se trouve les données et la comparaison se fait avec la colonne A aussi
tester et dire si ça te convient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub FiltreListe()
Dim f1 As Worksheet
Dim f2 As Worksheet
Dim derlig As Long
Application.ScreenUpdating = False
  Set f1 = Sheets("base")
  Set f2 = Sheets("liste")
   derlig = f2.Cells(Rows.Count, 1).End(xlUp).Row
   lig = f1.Cells(Rows.Count, 1).End(xlUp).Row
   If f1.FilterMode = True Then f1.ShowAllData
  Set d = CreateObject("scripting.dictionary")
  d.CompareMode = vbTextCompare
  Dim liste As New Collection
   Dim i As Integer
   On Error Resume Next
   For Each cel In f2.Range("A2:A" & f2.Cells(Rows.Count, 1).End(xlUp).Row)
    liste.Add cel.Text, CStr(cel.Text)
   Next cel
  For Each c In liste: d(c) = "": Next c
  f1.Range(f1.Cells(1, 1), f1.Cells(lig, 1)).AutoFilter Field:=1, Criteria1:=d.keys, Operator:=xlFilterValues
  f1.Range("A2:A" & lig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
 f1.ShowAllData
Application.ScreenUpdating = True
End Sub

[soussman]

Merci Mon ami BENNASR pour votre réponse rapide.
pour vous expliquer bien, dans le tableau "exemple" en piece jointe je cherche à supprimer les ligne qui contient les mots : STADE FOOT, DELTA, Axe BOOLING ... sous la colonne "source" du tableau.
Mes salutations 🤝.

[BENNASR]

testez ça :
un onglet pour saisir les critères de suppression

[soussman]

testez ça :
un onglet pour saisir les critères de suppression

Excelent. un grand merci c'est vraiment ce que je cherche.