Lenteur sur suppression des filtres

[chris6999]

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

 

[Papou-net]

Re : Lenteur sur suppression des filtres

Bonsoir Christelle

Essaie en modifiant ton code comme ci-dessous :

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.

 

[chris6999]

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