Bonjour,
Alors que je débute avec les macros et slicers, j'apprécie grandement l'aide apportée sur ce forum donc dèjà merci.
Je cherche aussi à avoir un slicer pour les gouverner tous (malgré des sources différentes). J'ai adapté la macro ci-dessus suggérée à mon fichier ci-joint (qui est un fichier de test avec deux TCD ayant les meme filtres).
Voici ma macro que j'ai positionné dans le Workbook:
Quand je modifie les filter du Slicer_DOSSIER, je n'ai pas de message d'erreur mais cela ne déclenche rien au niveau de Slicer_Dossier1... en somme il ne gouverne pas!
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
26
27 Sub slicer_copie() For Each Sh In ThisWorkbook.Sheets For Each TCD In Sh.PivotTables With Sh.PivotTables(TCD.Name) .ManualUpdate = True End With Next Next Application.EnableEvents = False 'ligne suivante à répéter pour chaque autre segment en adaptant le nom ActiveWorkbook.SlicerCaches("Slicer_DOSSIER1").ClearManualFilter For Each Iitem In ActiveWorkbook.SlicerCaches("Slicer_DOSSIER").SlicerItems 'ligne suivante à répéter pour chaque autre segment en adaptant le nom ActiveWorkbook.SlicerCaches("Slicer_DOSSIER1").SlicerItems(Iitem.Name).Selected = Iitem.Selected Next For Each Sh In ThisWorkbook.Sheets For Each TCD In Sh.PivotTables With Sh.PivotTables(TCD.Name) .ManualUpdate = False End With Next Next Application.EnableEvents = True End Sub
Voilà je vous remercie encore pour votre aide.
Pièce jointe 220642
Billy
Partager