Bonjour à tous,

J'ai besoin de votre aide sur une macro événementielle SVP.
Ce code permet de lier, sur un onglet, plusieurs segments n'ayant pas la même source de données.

A votre avis, est-il possible de dupliquer cela par onglet ? L'objectif étant de lier d'autres segments ensemble sur des TCD différents (dans le même classeur, sur des onglets différents).

Par avance, merci de votre aide.
A votre disposition si besoin de plus d'info ??




Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
 
 
    If Sh.Name = "Synthèse" And Target.Name = "Tableau croisé dynamique1" Then
        Application.EnableEvents = False
        ActiveWorkbook.SlicerCaches("Segment_format1").ClearManualFilter
        ActiveWorkbook.SlicerCaches("Segment_format3").ClearManualFilter
 
 
 
        For Each Iitem In ActiveWorkbook.SlicerCaches("Segment_format").SlicerItems
             ActiveWorkbook.SlicerCaches("Segment_format1").SlicerItems(Iitem.Name).Selected = Iitem.Selected
             ActiveWorkbook.SlicerCaches("Segment_format3").SlicerItems(Iitem.Name).Selected = Iitem.Selected
 
 
        Next
 
        Application.EnableEvents = True
 
    End If
        End If
 
 
 
End Sub