emmanuelavril
XLDnaute Nouveau
Bonjour à tous,
Voilà, j'ai développé une petite macro qui sur une certaine base de données me permet de supprimer les lignes qui ne m'interessent pas:
Dim y As Long
Dim Var
Var = Sheets("GENERAL").Range("B20")
For y = Sheets("NAVISION").Range("C65536").End(xlUp).Row To 2 Step -1
If (Sheets("NAVISION").Cells(y, 3).Value > Var And Sheets("NAVISION").Cells(y, 21).Value = "Yes") Then Rows(y).Delete
If (Sheets("NAVISION").Cells(y, 3).Value <= Var And Sheets("NAVISION").Cells(y, 21).Value = "No") Then Rows(y).Delete
Next
Cependant le temps d'execution peut prendre pas mal de temps si il y beaucoup de lignes. (parfois 8 ou 9 minutes)
Connaitriez-vous un moyen de diminuer ce temps d'execution?
Merci beaucoup
++
Voilà, j'ai développé une petite macro qui sur une certaine base de données me permet de supprimer les lignes qui ne m'interessent pas:
Dim y As Long
Dim Var
Var = Sheets("GENERAL").Range("B20")
For y = Sheets("NAVISION").Range("C65536").End(xlUp).Row To 2 Step -1
If (Sheets("NAVISION").Cells(y, 3).Value > Var And Sheets("NAVISION").Cells(y, 21).Value = "Yes") Then Rows(y).Delete
If (Sheets("NAVISION").Cells(y, 3).Value <= Var And Sheets("NAVISION").Cells(y, 21).Value = "No") Then Rows(y).Delete
Next
Cependant le temps d'execution peut prendre pas mal de temps si il y beaucoup de lignes. (parfois 8 ou 9 minutes)
Connaitriez-vous un moyen de diminuer ce temps d'execution?
Merci beaucoup
++