Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Y a t-il un filtre actif dans cette feuille excel ?

Y a t-il un filtre actif dans cette feuille excel ?

3 réponses
Avatar
Didier
Bonjour,

J'essaye de supprimer les filtres auto via une macro, mais je ne peux
savoir à l'avance si l'utilisateur a activé les filtres automatiques.
Résultat la macro renvoie une erreur (actuellement je la gère avec un
resume next mais il existe peut-être un moyen de savoir si les filtres
automatique sont actifs dans une feuille.

Merci d'avance
Didier
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonjour,

un moyen de savoir si les filtres automatique sont actifs dans une feuille.


MsgBox ActiveSheet.AutoFilterMode

Salutations
JJ

"Didier" a écrit dans le message de news:
RFeBf.22239$
Bonjour,

J'essaye de supprimer les filtres auto via une macro, mais je ne peux
savoir à l'avance si l'utilisateur a activé les filtres automatiques.
Résultat la macro renvoie une erreur (actuellement je la gère avec un
resume next mais il existe peut-être un moyen de savoir si les filtres
automatique sont actifs dans une feuille.

Merci d'avance
Didier




Avatar
michdenis
Bonjour Didier,

Tu peux essayer ceci :

Fait disparaitre tous les filtres de toutes les feuilles
que ce filtre soit "automatique" ou "élaboré".

'-----------------------------------
Sub Test()

Dim Sh As Worksheet
For Each Sh In Worksheets
With Sh
'Si les boutons du filtre sont présents
If .AutoFilterMode = True Then
'enlève les boutons et / ou le filtre auto
.Range("_FilterDataBase").AutoFilter
End If
'Si un filtre élaboré est en application
If .FilterMode = True Then
'Afficher toutes les valeurs
.ShowAllData
End If
End With
Next
Set Sh = Nothing
End Sub
'-----------------------------------


Salutations!



"Didier" a écrit dans le message de news: RFeBf.22239$
Bonjour,

J'essaye de supprimer les filtres auto via une macro, mais je ne peux
savoir à l'avance si l'utilisateur a activé les filtres automatiques.
Résultat la macro renvoie une erreur (actuellement je la gère avec un
resume next mais il existe peut-être un moyen de savoir si les filtres
automatique sont actifs dans une feuille.

Merci d'avance
Didier
Avatar
Didier
Salut,

Merci c'est parfaitement ce qu'il me fallait.

Encore Merci.

Didier


Bonjour Didier,

Tu peux essayer ceci :

Fait disparaitre tous les filtres de toutes les feuilles
que ce filtre soit "automatique" ou "élaboré".

'-----------------------------------
Sub Test()

Dim Sh As Worksheet
For Each Sh In Worksheets
With Sh
'Si les boutons du filtre sont présents
If .AutoFilterMode = True Then
'enlève les boutons et / ou le filtre auto
.Range("_FilterDataBase").AutoFilter
End If
'Si un filtre élaboré est en application
If .FilterMode = True Then
'Afficher toutes les valeurs
.ShowAllData
End If
End With
Next
Set Sh = Nothing
End Sub
'-----------------------------------


Salutations!



"Didier" a écrit dans le message de news: RFeBf.22239$
Bonjour,

J'essaye de supprimer les filtres auto via une macro, mais je ne peux
savoir à l'avance si l'utilisateur a activé les filtres automatiques.
Résultat la macro renvoie une erreur (actuellement je la gère avec un
resume next mais il existe peut-être un moyen de savoir si les filtres
automatique sont actifs dans une feuille.

Merci d'avance
Didier