Filtrage et appli qui plante

Bonsoir

J'ai créé une petite procédure afin d'enlever les filtres sur une feuille.

Le problème est que cela plante l'appli à chaque fois que je l'applique. Il
est vrai qu'il y a environ 2600 lignes et 25 colonnes

Vos suggestions et conseils sont bienvenues

Je vous remercie

Didier



Sub affichertout()

If ActiveSheet.AutoFilterMode = True Then

Application.ScreenUpdating = False

ActiveSheet.Unprotect Password:="toto"

ActiveSheet.AutoFilterMode = False

ActiveSheet.Protect Password:="toto"

Application.ScreenUpdating = True

End If

End Sub

bonjour Didier,

Sub affichertout()
If ActiveSheet.AutoFilterMode Then
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Selection.AutoFilter
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True
End If
End Sub

isabelle

Bonsoir

J'ai créé une petite procédure afin d'enlever les filtres sur une
feuille.

Le problème est que cela plante l'appli à chaque fois que je l'applique.
Il est vrai qu'il y a environ 2600 lignes et 25 colonnes

Vos suggestions et conseils sont bienvenues

Je vous remercie

Didier



Sub affichertout()

If ActiveSheet.AutoFilterMode = True Then

Application.ScreenUpdating = False

ActiveSheet.Unprotect Password:="toto"

ActiveSheet.AutoFilterMode = False

ActiveSheet.Protect Password:="toto"

Application.ScreenUpdating = True

End If

End Sub