Discussion :

[Chatvador]

Bonjour,

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

Code :

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

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!

[Marc-L]

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, …

[Chatvador]

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