Autres (RESOLU) Afficher la valeur filtrée dans une cellule

chaelie2015

XLDnaute Accro
Bonjour Forum
ci rattaché fichier exemple, je souhaite afficher le titre filtré dans une cellule.
exemple :
si je sélectionne dans le filtre de la colonne F que A alors afficher dans G2 = A et ainsi de suite.
Merci par avance
 

Pièces jointes

  • cHARLIE fILTRE.xlsx
    8.3 KB · Affichages: 8
Solution
Bonjour chaelie2015,

On peut utiliser cette fonction VBA :
VB:
Function ListeFiltre(r As Range) As String
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
For Each r In r
    If Not r.Rows.Hidden And CStr(r) <> "" Then d(r.Value) = ""
Next
ListeFiltre = Join(d.keys, " - ") 'concaténation
End Function
A placer dans un module standard.

A+

chaelie2015

XLDnaute Accro
Bonjour Forum
en fin j'ai pu trouver la formule, mais j'ai un autre souci si je sélectionne plus que 1 ????
je souhaite ne rien afficher si je sélectionne plus que 1
VB:
=INDEX(E5:E100;EQUIV(1;(SOUS.TOTAL(3;INDIRECT("E"&LIGNE(5:100))));0))
 

Pièces jointes

  • cHARLIE fILTRE.xlsx
    8.8 KB · Affichages: 6
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour chaelie2015,

On peut utiliser cette fonction VBA :
VB:
Function ListeFiltre(r As Range) As String
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
For Each r In r
    If Not r.Rows.Hidden And CStr(r) <> "" Then d(r.Value) = ""
Next
ListeFiltre = Join(d.keys, " - ") 'concaténation
End Function
A placer dans un module standard.

A+
 

Pièces jointes

  • cHARLIE fILTRE(1).xlsm
    16.4 KB · Affichages: 6

Discussions similaires

Réponses
6
Affichages
88

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 850
dernier inscrit
Danigra