Re,
En effectuant des recherches, j'ai vu que Chris avait proposé la macro suivante :
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
If Sh.Name = "NomfeuilleTCD" And Target.Name = "NomTCDPilote" Then
Application.EnableEvents = False
'ligne suivante à répéter pour chaque autre segment en adaptant le nom
ActiveWorkbook.SlicerCaches("Segment_Zone1").ClearManualFilter
For Each Iitem In ActiveWorkbook.SlicerCaches("Segment_Zone").SlicerItems
'ligne suivante à répéter pour chaque autre segment en adaptant le nom
ActiveWorkbook.SlicerCaches("Segment_Zone1").SlicerItems(Iitem.Name).Selected = Iitem.Selected
Next
Application.EnableEvents = True
End If
End Sub
Si j'ai bien compris, elle permet de lier les segments, dont l'un est qualifié de prioritaire.
Pour ma part, le structures de fichier sources sont identiques, et je souhaites que les TCD placés sur l'onglet "TCD Produits" soient pilotés par 3 segments : Marque, Pré/Main et Per.
Comment adapter la macro ? J'ai tenté, en positionnant la macro sous ThisWorkbook, mais cela ne fonctionne pas...
Dans l'attente de votre aide.
Merci d'avance,
Yvan