XL 2021 Formule en lien avec filtre automatique

sellig 29 · 27 Juillet 2024

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 · 27 Juillet 2024

Bonjour sellig 29, le forum,

Oui, sur la colonne A par exemple :

Code:

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

A+

sellig 29 · 27 Juillet 2024

job75 à dit:
Bonjour sellig 29, le forum,

Oui, sur la colonne A par exemple :

Code:

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

A+

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

sellig 29 · 27 Juillet 2024

job75 à dit:
Bonjour sellig 29, le forum,

Oui, sur la colonne A par exemple :

Code:

=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 · 27 Juillet 2024

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

sellig 29 · 27 Juillet 2024

job75 à dit:
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 · 27 Juillet 2024

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

VB:

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+

XL 2021 Formule en lien avec filtre automatique

sellig 29

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

sellig 29

XLDnaute Occasionnel

sellig 29

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

sellig 29

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires