=N(SOUS.TOTAL(3;A:A)<>NBVAL(A:A))
Merci beaucoup Job75, c'est exactement ce que je voulais!Bonjour sellig 29, le forum,
Oui, sur la colonne A par exemple :
A+Code:=N(SOUS.TOTAL(3;A:A)<>NBVAL(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?Bonjour sellig 29, le forum,
Oui, sur la colonne A par exemple :
A+Code:=N(SOUS.TOTAL(3;A:A)<>NBVAL(A:A))
Une colonne sur l'ensemble des filtres sans distinguer précisément celle qui est filtrée?La formule indique qu'une colonne est filtrée, quelle que soit la manière dont se fait le filtrage.
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