Comment recuperer la valeur d'un Slicers

[AliK]

Bonjour,

pouvez vous me dire comment faire pour recuperer la valeur d'un slicer .

je shauaite avoir une formule du genre = Value (slicer..)

je veux exploité la valeur du filtre en question

Merci d'avance

 

[chris]

Re : Comment recuperer la valeur d'un Slicers

Bonjour

Si le slicer est lié à un TCD basé sur des données PowerPivot, on peut le savoir par formule (JEUCUBE + RANGMEMBRECUBE).

Sinon par VBA

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