Discussion :

[BillyBranch]

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:

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

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!

Voilà je vous remercie encore pour votre aide.

Pièce jointe 220642

Billy

[78chris]

Bonjour

Sub slicer_copie() n'est pas un événement donc ne se déclenche pas tout seul

Le filtre d'un slicer agit sur le TCD et déclenche un événementWorkbook_SheetPivotTableUpdate

C'est là que doit être le code.

[BillyBranch]

Merci beaucoup ca fonctionne! tout ce temps à chercher...

[BillyBranch]

Bonjour

Pour les valeurs sélectionnées, à part une boucle qui vérifie la propriété Selected...

SlicerCache.VisibleSlicerItems donne également la liste du contenu visible du segment mais pas la notion de de sélection.

Une dernière piste (pas testé) les items ont une propriété HasData : les noms qui plantent correspondent peut-être à des éléments sans données donc peut-être vérifier au préalable avec cette proprité avant de "sélecter" l'entrée...

Bon j'ai avancé dans ma table et je rencontre le meme problème que halaster08. Et effectivement comme tu l'avais évoqué cette erreur se produit se produit quand il y a au moins un element sans donnée (j'ai fait divers tests qui le confirment).

Existerait-il une solution pour palier à ce problème et en gardant les valeurs nulles?

[78chris]

Bonjour

As-tu essayé de gérer la propriété HasData ?

[halaster08]

Bonjour,

Personelement je n'avais pas réussi a utiliser HasData, j'avais alors refait entièrement le fichier pour ne plus avoir ce problème.

[78chris]

Bonjour

Hasdata correspond aux éléments sans données dans le segment pilotant, pas aux éléments absents d'un segment piloté. Cela peut poser problème quand le segment pilotant n'a pas de données pour une valeur mais que les segments pilotés en ont.

Si des valeurs du segment pilotant n'existent pas dans un segment piloté, il y aura une erreur qu'il faut gérer.

On doit tester si la ou les valeurs du segment pilotant existent ou non dans le segment piloté et

• soit on affiche un message,
• soit on ne cherche pas à agir sur les valeurs inexistantes mais dans ce cas on obtient l'annulation des sélections dans les segments où elles manquent si seule cette valeur est sélectionné dans le segment pilotant.

Bref vouloir lier des TCD de sources différentes à travers des segments devient vite usine à gaz si les données des segments diffèrent.