Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Bonjour,
Est-ce que tu connais les macros ? Le code ci-dessous fait ce que tu demandes, en modifiant le nom du slicer.
Sub Slicer()
Dim SI As SlicerItem
For Each SI In ActiveWorkbook.SlicerCaches("Segment_date").SlicerItems
If SI.Selected = True Then
[A1] = SI.Caption
Exit For
End If
Next SI
End Sub
Cordialement.
Daniel