Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lenteur sur suppression des filtres

  • Initiateur de la discussion Initiateur de la discussion chris6999
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chris6999

XLDnaute Impliqué
Bonjour

J'ai un fichier de 20000 lignes sur lequel j'ai des problème de lenteur lorsque je donne l'ordre d'enlever les filtres en cours.
Le retrait du filtre se fait par lancement d'une macro associé à un bouton dans le fichier.
Je ne comprends pas pourquoi cette opération est super lente alors qu'à l'inverse lorsque je fais un filtre sur une donnée la sélection est presque immédiate.

J'ai mis mon fichier en pièce jointe pour vous monter les pb de lenteur (j'ai laissé uniquement 1000 lignes pour pouvoir insérer mon fichier au message).
Si quelqu'un peut m'expliquer pourquoi c'est si lent et me proposer une solution, je suis très intéressée.

Merci d'avance
Cordialement


Sub SUPRFILTRE()
'
' supressfiltre Macro
' Macro enregistrée le 14/01/2012 par Christelle
ActiveSheet.Unprotect
On Error Resume Next
ActiveSheet.ShowAllData
Range("D4").Select
Selection.ClearContents
ActiveSheet.Protect

End Sub
 

Pièces jointes

Re : Lenteur sur suppression des filtres

Bonsoir Christelle

Essaie en modifiant ton code comme ci-dessous :

Code:
Sub SUPRFILTRE()
'
' supressfiltre Macro
' Macro enregistrée le 14/01/2012 par Christelle
Application.ScreenUpdating = False
ActiveSheet.Unprotect
On Error Resume Next
 ActiveSheet.ShowAllData
 Range("D4").Select
    Selection.ClearContents
 ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub
Bonne soirée.

Cordialement.
 
Re : Lenteur sur suppression des filtres

Bonsoir PANOUNE

Je te suis grandement reconnaissante car cela fonctionne nickel..
Je n'en reviens pas car j'avais peu d'espoir de trouver une solution

Merci encore et bonne soirée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…