bonjour
je cherche à suppimer RAPIDEMENT (15000 lignes) des lignes d'une feuille dont la date est antérieure à une certaine valeur :
j'ai deux problèmes
- parfois le critère n'est pas appliqué - je ne sais pas acorder le format du critere avec le format de la colonne B
- comment gérer la seconde partie de la commande quand aucune ligne n'est à supprimer ?
je cherche à suppimer RAPIDEMENT (15000 lignes) des lignes d'une feuille dont la date est antérieure à une certaine valeur :
Code:
With Range(Range("B1"), Range("B65536").End(xlUp))
.AutoFilter Field:=1, Criteria1:="<=" & Format(dt, "dd-mmm-yyyy"), Operator:=xlAnd
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
j'ai deux problèmes
- parfois le critère n'est pas appliqué - je ne sais pas acorder le format du critere avec le format de la colonne B
- comment gérer la seconde partie de la commande quand aucune ligne n'est à supprimer ?