Gestion des erreurs

[Hugues]

Bonjour Le Forum
Dans un classeur j'ai dans une une feuille un bouton qui appelle une autre feuille et active un filtre automatique.
Le souci = le filtre automatique est positionné lors du passage à l'étape 2 ; Si l'utilisateur grille cet étape et passe par exemple directement de l'étape 1 à la N° 3 le filtre n'est pas positionné. Donc en appelant la feuille cela provoque une anomalie.

J'avais pensé pour gérer cet erreur, lors du clic sur le bouton, vérifier s'il y a présence du filtre. Si oui, activation du filtre et ouverture de la feuille. Si non, pas d'activation du filtre et seulement une ouverture de la feuille.

Que pensez vous ? Le problème c'est que je sais pas traduire en code la demande de la présence d'un filtre.

Merci par avance pour votre aide,

Hugues

 

[Pierrot93]

Re : Gestion des erreurs

Bonsoir Hugues

pour tester la présence d'un filtre, tu peux essayer ainsi :

Option Explicit
Sub test()
Dim f As AutoFilter
Set f = Feuil1.AutoFilter
If Not f Is Nothing Then MsgBox "ok filtre auto sur feuille."
End Sub

bonne soirée
@+

 

[job75]

Re : Gestion des erreurs

Bonsoir Hugues,

Dim filtre As Boolean
'-----------------
filtre = Sheets("Feuil2").AutoFilterMode

La variable filtre prend la valeur True si le filtre est activé sur la feuille nommée Feuil2.

Elle prend la valeur False dans le cas contraire.

A+

Edit : re re Pierrot, on est sur les mêmes fils ce soir

 

[Hugues]

Re : Gestion des erreurs

Merci à vous deux pour votre contribution précieuse.

Hugues