Comment savoir si filtre automatique activé en vba

[Adrien]

Bonjour à tous,

Ma question est dans le titre. j'aimerais savoir s'il est possible de savoir si le filtre automatique est activé ou non, dans le code VBA.

Merci pour vos réponses

 

[AV]

La ceinture et les bretelles :
Sub Test_Filtre()
If Not ActiveSheet.AutoFilter Is Nothing Then MsgBox 'Un filtre a été créé sur la feuille'
If ActiveSheet.FilterMode Then
MsgBox 'Il y a des données filtrées '
Else: MsgBox 'Il n'y a pas de données filtrées'
End If
If ActiveSheet.AutoFilter Is Nothing Then MsgBox 'Aucun filtre présent'

MsgBox 'Il y a ' & ActiveSheet.AutoFilter.Filters.Count & ' Colonnes sur lesquelles il y a un Filtre'
For i = 1 To ActiveSheet.AutoFilter.Filters.Count
If ActiveSheet.AutoFilter.Filters(i).On Then
MsgBox 'Le filtre est situé en position ' & i
End If
Next i
End Sub

AV [MVP Excel]

 

[Adrien]

Re:Comment savoir si filtre automatique activé en

Merci énormément pour ta réponse rapide et claire !

 

[shalkare]

Re : Comment savoir si filtre automatique activé en vba

6ans après, ta réponse m'a été utile, merci !

 

[TahaBobo]

Re : Comment savoir si filtre automatique activé en vba

6ans après, ta réponse m'a été utile, merci !

9ans après, ta réponse est toujours aussi utile !

 

[miguelangelo]

Re : Comment savoir si filtre automatique activé en vba

10 ans plus tard, c'est toujours aussi bon !!!

 

[renard]

2016 !! merci !

 

[BoNjOuR_]

et encore 15 ans ! merci

 

[soan]

BoNjOuR_ BoNjOuR_ (pléonasme ou simple répétition ? )

bienvenue sur le site XLD !

je propose :

Sub Essai()
  MsgBox ActiveSheet.AutoFilterMode
End Sub

soan

 

[djayle]

Incroyable de voir des réponses aussi récentes, ça fait 1 mois que je me tape des forums de 2006 à 2015, j'avais commencé à croire que plus personne ne les utilisait !

 

[soan]

Bonjour djayle,

bienvenue sur le site XLD !

tu peux regarder dans le menu TUTOS ces 3 items :
EXCEL ; FORMULES ET FONCTIONS ; VBA

soan

 

[PVI31]

12 ans après, toujours aussi efficace. Merci !

 

[job75]

12 ans après

??? il n'y a eu aucun message en 2010 !!!

 

[PVI31]

??? il n'y a eu aucun message en 2010 !!!

Pardon, 16 ans après.
Je fatigue

 

[Usine à gaz]

Bjr
2022-16= 2006 lol