Bonjour à tous
Je dois supprimer dans un fichier +- 20000 lignes sur un total de 30000.
J'ai une macro qui fonctionne bien mais qui est très lente...
Application.ScreenUpdating = False
last_row = Range("B1").End(xlDown).Row
c_year = Year(Date)
For a = 2 To last_row
If Cells(a, 1).Value < c_year Or Cells(a, 1).Value = "" Then
Rows(a).Select
Selection.Delete Shift:=xlUp
a = a - 1
last_row = Range("B1").End(xlDown).Row
End If
Next a
Une idée de comment je pourrais améliorer mon temps d'exécution ?
Merci d'avance pour votre aide !!!!
Je dois supprimer dans un fichier +- 20000 lignes sur un total de 30000.
J'ai une macro qui fonctionne bien mais qui est très lente...
Application.ScreenUpdating = False
last_row = Range("B1").End(xlDown).Row
c_year = Year(Date)
For a = 2 To last_row
If Cells(a, 1).Value < c_year Or Cells(a, 1).Value = "" Then
Rows(a).Select
Selection.Delete Shift:=xlUp
a = a - 1
last_row = Range("B1").End(xlDown).Row
End If
Next a
Une idée de comment je pourrais améliorer mon temps d'exécution ?
Merci d'avance pour votre aide !!!!