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
=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)));"")))
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.