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

chaelie2015 · 11 Mars 2022

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

job75 · 11 Mars 2022

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 · 11 Mars 2022

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

job75 · 11 Mars 2022

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 · 11 Mars 2022

Bonjour JOB
merci pour la réponse j'ai pas pensé au vba, mais c'est nickel.
a+

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

chaelie2015

XLDnaute Accro

Pièces jointes

job75

chaelie2015

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

chaelie2015

XLDnaute Accro

Discussions similaires