Discussion :

[Nono Sto]

Chères amies, chers amis du forum

J'ai un tableau de 57000 ligne et je dois delete en boucle plusieurs d'entre elle et là j'ai le choix entre deux strategies, soit passer un filtre + array et delete les cellule visible:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
'gvVNTCriteriaVector est le vecteur des elements à selectionner
.Range(.Cells(4, 1), .Cells(4, 1).End(xlToRight)).AutoFilter Field:=20, Criteria1:=Array(gvVNTCriteriaVector), Operator:=xlFilterValues
.Range(Cells(5, 1), Cells(intNrow, intNcol)).SpecialCells(xlCellTypeVisible).EntireRow.Delete

ou alors bouclé sur toutes les ligne tester le critere et delete la ligne.

J'ai remarqué que le filtre par un vecteur de critere prend beaucoup de temps (10 à 20 sec). Pensez vous alors plus rapide la boucle?

Merci

[Marc-L]

Côté rapidité, il faut désactiver l'affichage, le calcul automatique
et les évènements (s'il y en a dans les modules du classeur et des feuilles de calculs).

Voir les propriétés ScreenUpdating, Calculation et EnableEvents …

Pour les deux dernières, ne pas oublier de les réactiver en fin de procédure !