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+