XL 2013 TCD Faire apparaitre le nom du filtre du segment sélectionné dans une cellule

[francois95]

Bonjour,

J'aimerai faire apparaitre dans des cellules, les filtres sélectionnés dans les différents segments.
L'exemple joint sera peut etre plus parlant.

Je vous remercie par avance

François

 

[job75]

Bonjour goube, chris, le forum,

On peut aussi utiliser ;

Function Segment(x As String)
Application.Volatile
Dim s
For Each s In ThisWorkbook.SlicerCaches(x).VisibleSlicerItemsList
    Segment = Segment & ", " & Replace(Split(s, "[")(3), "]", "")
Next
Segment = Mid(Segment, 3)
End Function

A+

 

[chris]

RE

Je posterai plus tard pour les fonctions CUBE...

En une formule sur 2021 ou 365

=JOINDRE.TEXTE(", ";;SIERREUR(RANGMEMBRECUBE("ThisWorkbookDataModel";JEUCUBE("ThisWorkbookDataModel";Segment_Jour);SEQUENCE(NBJEUCUBE(Segment_Jour)));"");"")

ou un peu plus court

=LET(seg;Segment_Jour;dm;"ThisWorkbookDataModel";JOINDRE.TEXTE(", ";;SIERREUR(RANGMEMBRECUBE(dm;JEUCUBE(dm;seg);SEQUENCE(NBJEUCUBE(seg)));"")))

 

[goube]

Bonjour chris, job75,

Merci pour vos éclaircissements.
Je ne sais pas pourquoi le choix Ajouter au modèle de données est coché par défaut.
Bonne continuation à vous.
Cordialement.