Lenteur code VBA

Bonjour,

Le code suivant est extrêmement lent, y aurait-il des solutions pour l'améliorer?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub temp()   Dim i As Long   dernierecel = Sheets("Suivi référents").Range("A" & Rows.Count).End(xlUp).Row   For i = dernierecel To 2 Step -1   If Sheets("Suivi référents").Range("C" & i) <> Sheets("Listes secteurs").Range("C3") Then Sheets("Suivi référents").Rows(i).EntireRow.Delete   End If   Next i   End Sub

---

Merci par avance!

Bonjour,

le code n'est pas lent, sa logique oui ‼ (cette boucle = lenteur)
Possibillté de gain en désactivant l'affichage, consulter l'aide VBA de la propriété   ScreenUpdating   …


Sinon une astuce via le B-A-BA d'Excel donc déjà manuellement plus rapide que ce code :

• utiliser une colonne supplémentaire pour différencier les lignes à conserver des lignes à supprimer
   via une simple formule de feuilles de calculs retournant FAUX ou VRAI.

• Une fois la colonne remplie, trier la plage sur cette colonne :  les lignes à supprimer sont regroupées en fin de plage.

• Reste juste à effacer le bloc de ces lignes (plus rapide que la suppression) et la colonne supplémentaire …


Évidemment si une automatisation est vraiment nécessaire,
toutes ces opérations manuelles peuvent être retranscrites via l'Enregistreur de macro.

Sans compter les exemples déjà présents dans les discussions de ce forum …

D'autres solutions intermédiaires comme par exemple via un filtre.

___________________________________________________________________________________________________________

Je suis Paris, New-York, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour,

J'ai suivi vos conseils, j'ai supprimé la boucle et suis passée par un filtre pour effacer les lignes voulues. J'ai gagné pas mal de temps sur l'exécution de cette macro.

Merci et bonne journée