S
Sonskriverez
Guest
Bonjour à tous et lerci de votre aide,
'Selectionne les lignes 'toto'
Worksheets('sheet1').Select
Worksheets('Sheet1').Range('A1').AutoFilter Field:=8, Criteria1:='=*toto*' 'Selectionne selon le critère
Set tbl = ActiveCell.CurrentRegion
Application.DisplayAlerts = False
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Delete
Application.DisplayAlerts = True
Selection.AutoFilter ' Enlève le filtre automatique
Ce petit bout de macro filtre suivant un critère et delete les lignes concernée.
Le Pbl est que si le critère n'existe pas, tous ce delete, comment poser une codition du style SI critère existe pas passe ?
'Selectionne les lignes 'toto'
Worksheets('sheet1').Select
Worksheets('Sheet1').Range('A1').AutoFilter Field:=8, Criteria1:='=*toto*' 'Selectionne selon le critère
Set tbl = ActiveCell.CurrentRegion
Application.DisplayAlerts = False
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Delete
Application.DisplayAlerts = True
Selection.AutoFilter ' Enlève le filtre automatique
Ce petit bout de macro filtre suivant un critère et delete les lignes concernée.
Le Pbl est que si le critère n'existe pas, tous ce delete, comment poser une codition du style SI critère existe pas passe ?