R red-69 XLDnaute Nouveau 7 Décembre 2011 #1 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 Pièces jointes Exemple.xlsm 235.4 KB · Affichages: 66 Exemple.xlsm 235.4 KB · Affichages: 68 Exemple.xlsm 235.4 KB · Affichages: 71
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é XLDnaute Barbatruc 7 Décembre 2011 #2 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 Vote positif 0 Vote négatif
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
R red-69 XLDnaute Nouveau 8 Décembre 2011 #3 Re : Macro suppression de lignes par critères Merci Efgé, Ta solution fonctionne parfaitement. Cordialement Vote positif 0 Vote négatif
Re : Macro suppression de lignes par critères Merci Efgé, Ta solution fonctionne parfaitement. Cordialement