VBA - Pb Suppression lignes sur plage filtrée

Bonjour à tous,

Voici mon problème :

Après avoir filtré une plage selon un critère je veux supprimer les lignes résultantes répondant à un second critère. J'ai donc ce type de code :

Code:

---

1 2 3 4 5 6

pr_PlageLiée.AutoFilter Field:=1, Criteria1:=sCritere1 For Each rligne In pr_PlageLiée.SpecialCells(xlCellTypeVisible).Rows If rligne.Cells(1, 1).Offset(0, 9).Value = sCritere2 Then rligne.EntireRow.Delete End If Next rligne

---

Malheureusement cela ne marche pas bien dans le sens où si 2 lignes consécutives (dans la plage résultante du filtre) répondent au second critère alors une seule est supprimée.

Pouvez-vous SVP m'aider à trouver ce qui ne va pas dans ce code.

Merci d'avance.
Cordialement
oracle7556 ;););)

Code:

---

1 2 3 4

pr_PlageLiée.AutoFilter Field:=1, Criteria1:=sCritere1 pr_PlageLiée.AutoFilter Field:=9, Criteria1:=sCritere2   'supprime les lignes visibles

---

'pr_PlageLiée doit contenir toutes les colonnes de données

Edit: ci joint proposition:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim LastLig As Long Dim Plage As Range Application.ScreenUpdating = False With Sheets("Base") LastLig = .Cells(Rows.Count, 1).End(xlUp).Row Set Plage = .Range("A1:S" & LastLig) Plage.AutoFilter field:=1, Criteria1:=strCriteria1 Plage.AutoFilter field:=9, Criteria1:=strCriteria2 If Plage.SpecialCells(xlCellTypeVisible).Count > Plage.Columns.Count Then .Range("A2:S" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete End If Plage.AutoFilter Set Plage = Nothing End With

---

Bonsoir mercatog

1 - D'abord MERCI de ta réponse, elle m'a mis sur la voie de la solution.:ccool::ccool::ccool:

2 - En fait, il suffisait de faire :

Code:

---

1 2 3

pr_PlageLiée.AutoFilter Field:=1, Criteria1:=sCritere1 pr_PlageLiée.AutoFilter Field:=10, Criteria1:=sCritere2 pr_PlageLiée.SpecialCells(xlCellTypeVisible).EntireRow.Delete

---

Comme quoi, pourquoi chercher à faire compliqué quand on peut faire simple ...
Heureusement que tu m'as donné le déclic. MERCI encore de ton aide.
Je considère le Pb comme résolu.

Cordialement
oracle7556 ;););)

Code:

---

pr_PlageLiée.SpecialCells(xlCellTypeVisible).EntireRow.Delete

---

ne supprime t'elle pas même la ligne des titres?

et au cas où le filtre sur les 2 critères ne donne aucun résultat
tu auras des problèmes avec xlcelltypevisible