Discussion :

[halaster08]

Bonjour, pour remplir un tableau de bord j'utilise les données de 4 TCD dont les champs de lignes sont identique, pour ne pas avoir a refaire la même selection sur les 4 TCD j'aurais aimé utilisé une macro qui copie les choix d'un slicer vers un autre.
J'ai presque trouvé mon bonheur ici:http://www.developpez.net/forums/d13...t-meme-source/ mais bien sur si j'ouvre un post c'est qu'il y a des problèmes ...

Voici le code que j'ai utilisé:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
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_POLICE_PAYS").ClearManualFilter
        ActiveWorkbook.SlicerCaches("Slicer_POLICE_PAYS1").ClearManualFilter
        ActiveWorkbook.SlicerCaches("Slicer_POLICE_PAYS3").ClearManualFilter
        For Each Iitem In ActiveWorkbook.SlicerCaches("Slicer_POLICE_PAYS2").SlicerItems
        'ligne suivante à répéter pour chaque autre segment en adaptant le nom
             ActiveWorkbook.SlicerCaches("Slicer_POLICE_PAYS").SlicerItems(Iitem.Name).Selected = Iitem.Selected
             ActiveWorkbook.SlicerCaches("Slicer_POLICE_PAYS1").SlicerItems(Iitem.Name).Selected = Iitem.Selected
             ActiveWorkbook.SlicerCaches("Slicer_POLICE_PAYS3").SlicerItems(Iitem.Name).Selected = Iitem.Selected
        Next
        
         'ligne suivante à répéter pour chaque autre segment en adaptant le nom
        ActiveWorkbook.SlicerCaches("Slicer_TYPE_CLIENT").ClearManualFilter
        ActiveWorkbook.SlicerCaches("Slicer_TYPE_CLIENT1").ClearManualFilter
        ActiveWorkbook.SlicerCaches("Slicer_TYPE_CLIENT3").ClearManualFilter
        For Each Iitem In ActiveWorkbook.SlicerCaches("Slicer_TYPE_CLIENT2").SlicerItems
        'ligne suivante à répéter pour chaque autre segment en adaptant le nom
             ActiveWorkbook.SlicerCaches("Slicer_TYPE_CLIENT").SlicerItems(Iitem.Name).Selected = Iitem.Selected
             ActiveWorkbook.SlicerCaches("Slicer_TYPE_CLIENT1").SlicerItems(Iitem.Name).Selected = Iitem.Selected
             ActiveWorkbook.SlicerCaches("Slicer_TYPE_CLIENT3").SlicerItems(Iitem.Name).Selected = Iitem.Selected
        Next
        
         'ligne suivante à répéter pour chaque autre segment en adaptant le nom
        ActiveWorkbook.SlicerCaches("Slicer_TC_NOM").ClearManualFilter
        ActiveWorkbook.SlicerCaches("Slicer_TC_NOM1").ClearManualFilter
        ActiveWorkbook.SlicerCaches("Slicer_TC_NOM3").ClearManualFilter
        For Each Iitem In ActiveWorkbook.SlicerCaches("Slicer_TC_NOM2").SlicerItems
        'ligne suivante à répéter pour chaque autre segment en adaptant le nom
             ActiveWorkbook.SlicerCaches("Slicer_TC_NOM").SlicerItems(Iitem.Name).Selected = Iitem.Selected
                'bloque ici
             ActiveWorkbook.SlicerCaches("Slicer_TC_NOM1").SlicerItems(Iitem.Name).Selected = Iitem.Selected
                  ou là
             ActiveWorkbook.SlicerCaches("Slicer_TC_NOM3").SlicerItems(Iitem.Name).Selected = Iitem.Selected
              ou là
        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

Pour les deux premiers slicers je n'ai pas eu de problèmes, mais pour le troisième (et le 4ème) il me met l'erreur "invalid procedure call or argument" a des lignes différentes suivant le choix dans le slicer.
Quelqu'un saurait-il me dire pourquoi?

Merci d'avance.

[78chris]

Bonjour

Ce fil concerne des segments correspondant à des TCD basés sur des sources différentes. Est-ce ton cas ?

Si non il suffit de lier chaque segment aux divers TCD.

Si oui quelques pistes :

• si tu désactives, pour tester, la mise à jour différée est-ce que cela coince au même endroit ?
• en vidant le cache de données des TCD avant le traitement (Options du TCD, Données, Nombre d'éléments à Retenir par champ : aucun. Valider puis actualiser) as-tu toujours le PB ?
• es-tu certain d'avoir tous les mêmes éléments dans toutes les sources ?

[halaster08]

Ce fil concerne des segments correspondant à des TCD basés sur des sources différentes. Est-ce ton cas ?

Oui j'ai 4 TCD qui viennent de 4 exports de Bdd différentes.

•es-tu certain d'avoir tous les mêmes éléments dans toutes les sources ?

Je suis sur que non pour certaines variables. Mais ça n'a pas arreter la macro pour le premier slicer qui pour un TCD a une valeur de plus que les autres

•si tu désactives pour tester la mise à jour différée est-ce que cela coince au même endroit ?

oui

•en vidant le cache de données des TCD avant le traitement (Options du TCD, Données, Nombre d'éléments à Retenir par champ : aucun. Valider puis actualiser) as-tu toujours le PB ?

oui

Merci de ton aide

edit: ".ClearManualFilter" selectionne toute les valeurs de la liste, existe-t-il quelque chose pour déselectionner tout?

[78chris]

Re

A ma connaissance, on ne peut pas voir 0 valeur sélectionnée. Ce qui se produit cependant quand on filtre sur un niveau et qu'il n'existe pas valeurs à un niveau différent.

Si les valeurs sources sont différentes et qu'il n'y a donc pas les mêmes éléments dans les slicers, cela devrait planter quand tu sélectionnes la valeur inexistante. Cependant j'ai remarqué que dans certains cas, selon la façon dont le code est fait, cela renomme l'entrée et met donc le souk mais ne plante pas...

En mode debug si tu compares les propriétés des items sont-elles équivalentes sur les valeurs qui provoquent le plantage ?

[halaster08]

Si les valeurs sources sont différentes et qu'il n'y a donc pas les mêmes éléments dans les slicers, cela devrait planter quand tu sélectionnes la valeur inexistante. Cependant j'ai remarqué que dans certains cas, selon la façon dont le code est fait, cela renomme l'entrée et met donc le souk mais ne plante pas...

J'ai testé sur un cas qui est présent dans les 4 TCD et ça ne marche pas non plus

En mode debug si tu compares les propriétés des items sont-elles équivalentes sur les valeurs qui provoquent le plantage

Malheureusement je ne connais pas le mode debug?

Merci encore, mais vais surement devoir changer d'approche vu que mes bases ne seront jamais 100% identiques

Du coup une question comment peut on récuperer les valeurs choisies dans un slicer?

[78chris]

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...