XL 2021 Formule en lien avec filtre automatique

[sellig 29]

Bonjour,
Existe t'il, SVP, une formule "si" qui me donnerait un 1 si le bouton est activé dans la colonne, et un 0 (ou rien) si non activé?
Merci par avance de votre aide

 

[job75]

Bonjour sellig 29, le forum,

Oui, sur la colonne A par exemple :

=N(SOUS.TOTAL(3;A:A)<>NBVAL(A:A))

A+

 

[sellig 29]

Bonjour sellig 29, le forum,

Oui, sur la colonne A par exemple :

=N(SOUS.TOTAL(3;A:A)<>NBVAL(A:A))

A+

Merci beaucoup Job75, c'est exactement ce que je voulais!

 

[sellig 29]

Bonjour sellig 29, le forum,

Oui, sur la colonne A par exemple :

=N(SOUS.TOTAL(3;A:A)<>NBVAL(A:A))

A+

Après essai, je m'aperçois que l'activation d'un seul filtre déclenche également un 1 sur toutes les autres filtres automatiques de la page, bien qu'ils ne soient pas utilisés🙁 Est il possible de dissocier la formule des autres colonnes, rendre chaque formule active que pour la colonne souhaitée?

 

[job75]

La formule indique qu'une colonne est filtrée, quelle que soit la manière dont se fait le filtrage.

 

[sellig 29]

La formule indique qu'une colonne est filtrée, quelle que soit la manière dont se fait le filtrage.

Une colonne sur l'ensemble des filtres sans distinguer précisément celle qui est filtrée?

 

[job75]

Pour connaître l'état d'un filtre automatique on peut utiliser cette macro :

Sub Etat()
Dim AF As Object, mes$, i%
Set AF = ActiveSheet.AutoFilter
If AF Is Nothing Then MsgBox "Filtre automatique non installé...": Exit Sub
For i = 1 To AF.Filters.Count
    mes = mes & vbLf & "Filtre sur " & AF.Range.Columns(i).Address(0, 0) & " => " & IIf(AF.Filters(i).On, "", " non ") & "actif"
Next
MsgBox Mid(mes, 2), , "Filtre automatique"
End Sub

A+