GeoTrouvePas
XLDnaute Impliqué
Bonjour tout le monde,
J'utilise une macro relativement pour supprimer des lignes en fonction d'un critère :
Mon soucis est que j'ai 50 000 lignes à étudier et la suppression une à une de ces lignes ralenti énormément l'exécution (j'utilise bien entendu tout ce qui ScreenUpdating, Calcul Manuel et autres astuces)
Je me demandais donc si il n'y aurait pas moyen de stocker tous les numéros de lignes à supprimer dans une variable pour toutes les supprimer d'un coup en sortie de boucle ?
En vous remerciant par avance de votre aide
J'utilise une macro relativement pour supprimer des lignes en fonction d'un critère :
Code:
With Thisworkbook.Sheets("DATA")
CptrLig = 1
While .Cells(CptrLig,1) <> VbNullString
If .Cells(CptrLig,2) = "Réel" then
.Rows(CptrLig).Delete
Else
CptrLig = CptrLig + 1
End if
Wend
End with
Mon soucis est que j'ai 50 000 lignes à étudier et la suppression une à une de ces lignes ralenti énormément l'exécution (j'utilise bien entendu tout ce qui ScreenUpdating, Calcul Manuel et autres astuces)
Je me demandais donc si il n'y aurait pas moyen de stocker tous les numéros de lignes à supprimer dans une variable pour toutes les supprimer d'un coup en sortie de boucle ?
En vous remerciant par avance de votre aide