Si le slicer est lié à un TCD basé sur des données PowerPivot, on peut le savoir par formule (JEUCUBE + RANGMEMBRECUBE).
Sinon par VBA
Code:
Sub Test()
Dim Cas As SlicerItem
With ThisWorkbook.SlicerCaches("Segment_NomSegment")
.ClearManualFilter
For Each Cas In .SlicerItems
If Cas.Selected = True Then MsgBox (Cas.Caption) 'A adapter
Next Cas
End With
End Sub
Il peut y avoir plusieurs valeurs sélectionnées...