Discussion :

[oracle7556]

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 :

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

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

[mercatog]

Code :

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

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 :

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

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

[oracle7556]

Bonsoir mercatog

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

2 - En fait, il suffisait de faire :

Code :

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

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

[mercatog]

Code :

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

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