Filtre multiple avec MFC

[jebibo]

Bonjour à tous
J'utile souvent des filtre multiples pour mes bases de données et je voudrais que la cellule de mon filtre
soit en rouge quand un filtre est appliqué. Est-ce possible par une MFC ou un autre facon.
Merci de votre attention
Au plaisir

 

[Gen Rose]

Re : Filtre multiple avec MFC

Bonjour jebibo 😱
Le Forum,

Oui, c'est possible. Une astuce que l'on m'a donné sur ce forum en 2 étapes:

Macro à insérer dans un module:

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

Ensuite sélectionner la zone de filtre, créer une MFC en choisissant 'Utiliser une formule...', y mettre

=ChampActif(B)

et ne pas oublier de chosir une couleur.

En p.j. le résultat.

Cdt,

 

[BOISGONTIER]

Re : Filtre multiple avec MFC

Bonjour,

Cf Le filtre automatique

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreAutoFonctionPerso.xls

JB

 

[jebibo]

Re : Filtre multiple avec MFC

Merci genevieve78 et à toi BOISGONTIER

Je vais mettre en application

au plaisir

 

[jebibo]

Re : Filtre multiple avec MFC

Allo Genevieve78

j'ai mis en application ce que tu m,as dit cependant ça ne fonctionne pas.
lorsque je vais dans les fonctions je ne voie pas la formule champactif.
Je ne sais pas qu'est-ce que je fais de travers.
Je sollicite encore ton aide stp.

Merci

voir le fichier

 

[Gen Rose]

Re : Filtre multiple avec MFC

Re,

Aucun problème.

Tu as fait 2 petites erreurs:

1-Enlève les $ de ta formule dans ton document original; cela doit donner =ChampActif(B3)

2-Tu as copié le code dans la Feuil1 or, il faut la copier dans un Module: Dans l'éditeur VBE, va sous Insertion; Module et mets-y le code. Tu peux l'effacer de la Feuil1 aussi.

Enregistre à nouveau le document; tout devrait fonctionner 🙂

 

[jebibo]

Re : Filtre multiple avec MFC

Merci genevieve78 je viens de réussir.

je te remercie beaucoup.

au plaisir