Bonjour,
pas vu que ce soit prévu d'origine.
Une petit macro pour y remédier :
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim sc As SlicerItem, sel As Boolean
For Each sc In ActiveWorkbook.SlicerCaches("Segment_Années").SlicerItems
If sc.Selected And Not sel Then
sel = True
ElseIf sc.Selected Then ' And sel Then
Application.EnableEvents = False
sc.Selected = False
Application.EnableEvents = True
End If
Next sc
End Sub
à mettre dans le module de la feuille du TCD.
Si multisélection, seule la 1ère reste
eric