Discussion :

[CLAUDE19]

Bonjour à tous,

Je reviens vers vous concernant une amélioration que je souhaite apporter à une petite application excel en cours de construction.

La ligne (3) représente des entetes de mon tableau. Ligne sur laquelle je fais des filtres par colonnes pour chercher les données selon les critères choisis.
Je souhaiterais pour plus de clarté pour l'utilisateur que, à chaque fois que l'on fait un filtre sur une colonne de la ligne 3 sur la même colonne du filtre et la cellule de ligne 1 change de couleur. Ceci pour bien identifié quelle colonne est filtrée.

D'avance merci pour votre appui

Bien cordialement

[Thautheme]

Bonjour Claude, bonjour le forum,

Comment est fait le filtre ? Manuellement ou par macro ?

[CLAUDE19]

Bonjour Thautheme,


Il est fait manuellement, l'utilisation de ce fichier nécessite de travailler avec les filtres essentiellement, il est utile d'identifier clairement les emplacements des filtres, c'est plus facile pour l'utilisateur.


Cordialement

[Thautheme]

Bonjour Claude, bonjour le forum,

Malheureusement le filtre manuel ne déclenche aucun événement et je n'arrive pas à coder quelque chose qui puisse ta satisfaire. Voir avec les vrais balèzes de ce site...

[CLAUDE19]

Bonjour à tous,

Je n'ai toujours pas trouvé de solution à mon problème, n'y a t il personne qui puisse me donner un coup de main?

D'avance merci

cordialement

[Marc-L]

Bonjour, bonjour !

Quand une colonne est filtrée, la flèche de filtre dans son entête est bleue, what else ?‼

[CLAUDE19]

Oui, je le sais bien, sur des filtres de plusieurs colonnes on peut parfois s'y perdre. C'est pour cela que j'aurais souhaité faire changer de couleur les cellules au dessus de la colonne filtrée. Plus visible

[boisgontierjacques]

Bonsoir,

Cette fonction permet de colorier les champs actifs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
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)

Jacques boisgontier

[CLAUDE19]

Bonjour,

C'est exactement ce que je souhaité. Je n'avais pas pensé à la mise en forme conditionnelle.

Merci pour ton aide

Cordialement