S
sonskriverez
Guest
Bonsoir,
Je voudrais deleter des lignes à partir d'un filtre automatique, pour ce faire j'emploie le code suivant :
Worksheets('Sheet1').Range('A1').AutoFilter Field:=8, Criteria1:='=*RESOLVED*'
' Delete les lignes selectionnées
Application.DisplayAlerts = False
Set tbl = ActiveCell.CurrentRegion = True
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Delete
Application.DisplayAlerts = True
Selection.AutoFilter ' Enlève le filtre automatique
Mes 2 problèmes sont :
1°) avec cette méthode si le critère n'existe pas toutes les données de la feuille sont deletées, comment tester si le critère existe ?
2°) je dois répéter ce module 9 fois car 9 critères différents, il y a t-il un autre moyen de deleter plusieurs lignes avec plusieurs critères.
Merci de votre aide et longue vie au forum
Je voudrais deleter des lignes à partir d'un filtre automatique, pour ce faire j'emploie le code suivant :
Worksheets('Sheet1').Range('A1').AutoFilter Field:=8, Criteria1:='=*RESOLVED*'
' Delete les lignes selectionnées
Application.DisplayAlerts = False
Set tbl = ActiveCell.CurrentRegion = True
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Delete
Application.DisplayAlerts = True
Selection.AutoFilter ' Enlève le filtre automatique
Mes 2 problèmes sont :
1°) avec cette méthode si le critère n'existe pas toutes les données de la feuille sont deletées, comment tester si le critère existe ?
2°) je dois répéter ce module 9 fois car 9 critères différents, il y a t-il un autre moyen de deleter plusieurs lignes avec plusieurs critères.
Merci de votre aide et longue vie au forum