Discussion :

[dguyot25000]

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 !

[Nain porte koi]

Hello,

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

Code :

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

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

[BENNASR]

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

[Nain porte koi]

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