Macro suppression de lignes par critères

red-69 · 7 Décembre 2011

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

Code:

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é · 7 Décembre 2011

Re : Macro suppression de lignes par critères

Bonjour red-69,
Une proposition:

VB:

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 · 8 Décembre 2011

Re : Macro suppression de lignes par critères

Merci Efgé,

Ta solution fonctionne parfaitement.

Cordialement

Macro suppression de lignes par critères

red-69

XLDnaute Nouveau

Pièces jointes

Efgé

XLDnaute Barbatruc

red-69

XLDnaute Nouveau

Discussions similaires

Macro suppression de lignes par critères

red-69

XLDnaute Nouveau

Pièces jointes

Efgé

XLDnaute Barbatruc

red-69

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency