oracle7
XLDnaute Nouveau
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 :
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
oracle7
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:
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
Pouvez-vous SVP m'aider à trouver ce qui ne va pas dans ce code.
Merci d'avance.
Cordialement
oracle7