Discussion :

[Pti-Perso-Bonus]

Bonjour,


J'aimerais savoir s'il est possible de lier un TCD et un Tableau via un seul et unique Segment/Slicer.

Je n'ai pas l'impression que cela soit possible de base, et ne trouvant pas d'information sur le net et sur le forum j'en appel directement à celui-ci

Dès fois que cela soit utile voilà ce que j'essaie de réaliser : en TCD j'ai un agrégat de marges, coûts etc par vendeurs, et dans le tableau j'ai le détail vente par vente. La valeur que je veux "segmentiser" () étant les exercices comptables. Il s'agit d'une colonne du tableau et du seul filtre de mon TCD.

Je sais qu'il est possible de remonter sur mes données en double cliquant sur mon TCD, mais ces dernières s'étendant sur 80+ colonnes, et réalisant une sorte de tableau de bord, j'aimerais pouvoir garder les 2 sur la même feuille.

Si quelqu'un connaît un moyen de me débloquer (une option cachée ou via du VBA) je suis preneur


Cordialement,


PPB

[78chris]

Bonjour

Non ce n'est pas possible car ce sont deux objets de nature différente : tableau d'un côté et cube de données de l'autre.

En VBA tu peux synchroniser tes slicers sous réserve que leurs contenus soient similaires.

[Pti-Perso-Bonus]

Réponse décevante mais à laquelle je m'attendais ^^ tant pis merci quand même


PPB

[antonysansh]

Nativement cette fonctionnalité n'existe pas.

Par contre il est possible de faire des filtres en VBA. En utilisant l'évènement PivotTableUpdate et avec un peu de code, tu peux simuler cette synchronisation entre ton TCD et ton tableau.

[antonysansh]

Le code n'est pas très compliqué en plus.

En voila un exemple avec la démo en image

Dans le code de la feuille qui contient le Segment :

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
Option Explicit
 
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
 
    'Declaration des variables
    Dim SlicCach As SlicerCache, SlicItem As SlicerItem, ChaineFiltres$, t$()
 
        'Init de ChaineFiltres (separateur //)
        ChaineFiltres = "//"
 
        'Test si c'est le bon TCD qui est Update
        If Target.Name <> "TCD_Test" Then GoTo fin
 
        'Recuperation du Segment
        Set SlicCach = ThisWorkbook.SlicerCaches("Segment_Test")
 
        'Pour chaque item selectionne de mon segment, je place le Lib dans ma ChaineFiltres (separateur //)
        For Each SlicItem In SlicCach.VisibleSlicerItems
            ChaineFiltres = ChaineFiltres & "//" & SlicItem.Caption
        Next
 
        'Les modalites a filtrer sont injectees dans un tableau
        t = Split(Replace(ChaineFiltres, "////", ""), "//")
 
    'Filtre sur le tableau
    ActiveSheet.Range("$A$2:$A$11").AutoFilter Field:=1, Criteria1:=t, Operator:=xlFilterValues
fin:
    Set SlicCach = Nothing
End Sub