XL 2021 Visibilité filtre automatique

[sellig 29]

Bonjour,
J'aurais souhaité que la cellule dans laquelle le filtre est utilisé se remplisse d'une couleur (rouge) afin de visualiser rapidement la ou les colonnes qui sont filtrées.
Merci par avance pour votre aide!

 

[chris]

Bonjour

Il y a déjà le symbole entonnoir / n'est-ce pas suffisant ?

Tu peux aussi utiliser un tableau structuré et des segments : c'est nettement plus visuel

 

[sellig 29]

Disons que la couleur serait un plus, l'entonnoir est relativement discret et sur un tableau comprenant de nombreuses colonnes la couleur attirerait plus facilement le regard.

 

[chris]

RE

Et les segments ?

Je pense que pour la couleur il faut passer par VBA

 

[sellig 29]

RE

Et les segments ?

Je pense que pour la couleur il faut passer par VBA

Les segments je ne connais pas... Sinon par VBA pourquoi pas!

 

[chris]

RE

Commence par découvrir les segments : en général ils sont appréciés.

 

[mapomme]

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.

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

 

[gosselien]

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)

 

[sellig 29]

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.

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

Merci beaucoup, je vais l'essayer sur mon fichier source dans la soirée

 

[sellig 29]

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)

Merci beaucoup

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)

Merci beaucoup

 

[mapomme]

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):

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é".

 

[sellig 29]

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):

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é".

Merci beaucoup

 

[sellig 29]

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)

Bonjour,
j'ai tenté d'appliquer le code que vous m'avez transmis et malheureusement la cellule ne se colorise pas? Pouvez vous SVP, jeter un œil sur le fichier rectifié, j'ai peut être fait une erreur...
Merci

 

[JHA]

Bonjour à tous,

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

JHA

 

[sellig 29]

Bonjour à tous,

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

JHA

Merci beaucoup, ca fonctionne!!