Macro suppression de lignes par critères

[red-69]

Bonjour à tous,

j'ai rédigé un bout de code afin d'automatiser la suppression de lignes excel dont le contenu ne respecte pas certains critères.

Le problème c'est qu'il ne fonctionne pas et je ne comprends pas où se situe l'erreur.
Si quelqu'un pouvait jeter un œil.

Merci

Sub supp()
     
    For i = 50 To 1
    If Sheets("Liste").Range(i & "C").Value <> "*5707*" Or "*5708*" Then Rows(i).Delete
    Next i

End Sub

 

[Efgé]

Re : Macro suppression de lignes par critères

Bonjour red-69,
Une proposition:

Sub recherchepassager()
With Sheets("Liste")
    For i = 50 To 1 Step -1
        If Not .Range("C" & i).Value Like "*5707" And _
        Not .Range("C" & i).Value Like "*5708" Then Rows(i).Delete
    Next i
End With
End Sub

Cordialement

 

[red-69]

Re : Macro suppression de lignes par critères

Merci Efgé,

Ta solution fonctionne parfaitement.

Cordialement