Supprimer ligne si valeur contient OU contient

Salut à tous,

Alors j'ai adapté un code pour supprimer les lignes qui ne contienne pas "PANNEAUX" dans la colonne Q :

Sub DelEditeur()
Dim i As Integer
With ThisWorkbook.Sheets("Feuil2")
'Précisez le nom de votre feuille
            For i = .Range("Q" & .Rows.Count).End(xlUp).Row To 2 Step -1
'je travaille sur la colonne Q
'Rows.count permet de retourner le nombre de ligne de la plage range
                        If .Range("Q" & i).Value <> "PANNEAUX" Then
                                   .Rows(i).Delete
                        End If
            Next i
End With
End Sub

J'aurais souhaité supprimer les lignes qui ne contienne pas "PANNEAUX" ou "PLEXI" ou "STRAT", j'ai donc essayer :

If .Range("Q" & i).Value <> "PANNEAUX" Or "PLEXI" Or "STRAT" Then

Sans succès, j'ai essayer les "Or", les "And" et les "&" mais sa doit pas être la bonne méthode !

Par la même occasion, comment appliquer le code seulement à partir de la ligne C (car j'ai les désignations des colonnes dans les lignes A et B) sauf que du coup, vu que la colonne Q des lignes A et B est différent de "PANNEAUX", eh bien sa me supprime tout !

Cordialement

Bonjour

Teste comme ceci

If .Range("Q" & i).Value <> "PANNEAUX" And .Range("Q" & i).Value <> "PLEXI" And .Range("Q" & i).Value <> "STRAT" Then

Salut,

Sa marche très bien, merci !

Cordialement

Rechercher des sujets similaires à "supprimer ligne valeur contient"