Code VBA pour supprimer une ligne si cellule qui ne contient pas la valeur x ou y ou z

Bonjour,

J'aurais besoin d'aide pour trouver la bonne formulation à ma requête : je voudrais créer une macro qui supprime la ligne entière lorsqu'une cellule de la colonne C ne contient pas la valeur X ou Y ou Z. J'ai commencé ainsi mais je galère un peu et je vois mal comment avancer :

1er essai :

Sub supprimer_ligne_fonction_valeur_cellule()
For Each cellule In Range("C2:C2000")
InStr(X or Y or Z) Then cellule.EntireRow.Delete
Next
End Sub

2ème essai qui ne va pas non plus :

Sub supprimer_ligne_fonction_valeur_cellule()
For Each cellule In Range("C2:C2000")
InStr(X,Y,Z) Go To cellule.EntireRow.Delete
Next
End Sub

Quelle(s) correction(s) me conseillez-vous ?

Un grand merci pour votre aide !

Hello,

pour supprimer des lignes il faut toujours partie de la fin, sinon il y a un décalage à chaque suppression.
Essayez ça

Code:

---

1 2 3 4 5 6 7 8 9

For i = 2000 To 2 Step -1 Contenu = Cells(i, "C").Value X = InStr(1, Contenu, "X", vbTextCompare) Y = InStr(1, Contenu, "Y", vbTextCompare) Z = InStr(1, Contenu, "Z", vbTextCompare) If X + Y + Z = 0 Then Rows(i).Delete End If Next i

---

Bonjour
à mon modeste avis le plus simple et avec zéro codage est powerquery
mettre tes données sous forme tableau structuré
puis filtre /filtre textuelle/ne contient pas et puis tu télécharge les données

@BENNASR vous avez raison, j'aurais même dit qu'un simple tableau filtré aurait suffit, mais bon, si le demandeur veut des macros... :roll: