XL 2021 Visibilité filtre automatique

chris à dit:

RE

Et les segments ?

Je pense que pour la couleur il faut passer par VBA

Cliquez pour agrandir...

1. modifier un ou plusieurs filtres
2. puis changer de cellule pour déclencher la macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim base As Range, x
   If Me.AutoFilterMode Then
      Set base = Me.AutoFilter.Range(1, 1)
      For Each x In Me.AutoFilter.Filters
         base.Interior.Color = IIf(x.On, vbRed, vbYellow)
         Set base = base.Offset(, 1)
      Next x
   End If
End Sub

• Sélectionner A1:G1
• Format/mise en forme conditionnelle/La formule est

mapomme à dit:

Bonsoir à tous😉,

Une presque solution par VBA. Les couleurs sont actualisées si on change la sélection au sein de la feuille (masquer ou afficher des lignes ne provoque pas un évènement qui peut être intercepté au sein de VBA🙁).

Donc :

1. modifier un ou plusieurs filtres
2. puis changer de cellule pour déclencher la macro

Mettre le code suivant dans le module de la feuille Feuil1.

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim base As Range, x
   If Me.AutoFilterMode Then
      Set base = Me.AutoFilter.Range(1, 1)
      For Each x In Me.AutoFilter.Filters
         base.Interior.Color = IIf(x.On, vbRed, vbYellow)
         Set base = base.Offset(, 1)
      Next x
   End If
End Sub

Cliquez pour agrandir...

gosselien à dit:

Bonjour,

J. Boisgontier avait pondu ceci:

Function ChampActif(c)

Application.Volatile

ChampActif = Sheets(Application.Caller.Parent.Name).AutoFilter.Filters.Item(c.Column - Sheets(Application.Caller.Parent.Name).Range("_FilterDataBase").Column + 1).On

End Function

Pour appliquer une MFC sur les titres:

• Sélectionner A1:G1
• Format/mise en forme conditionnelle/La formule est

=ChampActif(A1)

Cliquez pour agrandir...

gosselien à dit:

Bonjour,

J. Boisgontier avait pondu ceci:

Function ChampActif(c)

Application.Volatile

ChampActif = Sheets(Application.Caller.Parent.Name).AutoFilter.Filters.Item(c.Column - Sheets(Application.Caller.Parent.Name).Range("_FilterDataBase").Column + 1).On

End Function

Pour appliquer une MFC sur les titres:

• Sélectionner A1:G1
• Format/mise en forme conditionnelle/La formule est

=ChampActif(A1)

Cliquez pour agrandir...

mapomme à dit:

Re,

Le code précédent fonctionne avec une plage ordinaire.

Mais si le tableau filtré est un tableau structuré, le code doit être changé pour celui-ci (code dans le module de Feuil2):

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim base As Range, x
   Set base = [b4]
   With [b4].ListObject.AutoFilter
      For Each x In .Filters
         base.Interior.Color = IIf(x.On, vbRed, vbYellow)
         Set base = base.Offset(, 1)
      Next x
   End With
End Sub

Le classeur joint montre cela dans la feuille "Tableau-structuré".

Cliquez pour agrandir...

gosselien à dit:

Bonjour,

J. Boisgontier avait pondu ceci:

Function ChampActif(c)

Application.Volatile

ChampActif = Sheets(Application.Caller.Parent.Name).AutoFilter.Filters.Item(c.Column - Sheets(Application.Caller.Parent.Name).Range("_FilterDataBase").Column + 1).On

End Function

Pour appliquer une MFC sur les titres:

• Sélectionner A1:G1
• Format/mise en forme conditionnelle/La formule est

=ChampActif(A1)

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Avec le code de @mapomme (que je salue) et enregistrement en "xlsm" cela sera peut-être mieux.

JHA

Cliquez pour agrandir...