Comment afficher le nom d'une colonne filtrée dans une celulle?

[The Wolf]

Bonjour à tous,
voici mon souci :
J'ai une base de données avec des filtres automatiques pour chaque colonne dans ma feuille1
Je souhaite faire un tableau de requête en feuille2 et voudrais que lorsque l'utilisateur filtre la colonne Client et département par exemple, je retrouve en feuille2 "client" et "département mentionné dans des cellules.
Ci joint, un exemple qui résume mon souci.
Merci beaucoup par avance à ceux qui voudront bien m'aider.
Seb

 

[Dranreb]

Re : Comment afficher le nom d'une colonne filtrée dans une celulle?

Bonjour.
Cette procédure dans le module Feuil2:

Private Sub Worksheet_Activate()
Me.[B2:C2].ClearContents
On Error Resume Next
Me.[B2].Value = Mid$(Feuil1.AutoFilter.Filters(1).Criteria1, 2)
Me.[C2].Value = Mid$(Feuil1.AutoFilter.Filters(3).Criteria1, 2)
End Sub

Cordialement.

 

[The Wolf]

Re : Comment afficher le nom d'une colonne filtrée dans une celulle?

Bonjour,
Merci beaucoup pour votre aide. J'ai copié votre code dans mon fichier joint et ça marche.
Sans abuser de votre disponibilité, pourriez-vous me dire comment faire pour que lorsque je filtre 2 dpt ou plus, la liste des dpt filtrés apparaisse en feuille2?
Merci encore,
Cordialement,
Seb