Lier deux tableaux de pivot avec une valeur
Bonjour,
J'ai deux tableaux croisés dynamique l'un au-dessus de l'autre qui ont deux sources de données différentes mais qui ont des étiquettes ainsi que des valeurs similaires.
Mon objectif est lorsque je sélectionne une valeur d'étiquette sur l'un des deux tableau, le deuxième tableau se met à jour automatiquement sur cette même valeur.
J'ai écris un début de code qui me premet d'excuter ma macro, cependant mon soucis c'est que sous mes 2 TCD j'ai des graphiques et ils se superposent.
Je ne peux donc pas utiliser le : "ClearAllFilters".
Auriez-vous un autre moyen de filtrer sur 1 seul élément sans passer par le ClearAllFilters ?
Voici mon code avec le ClearAllFilters
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim Valeur1 As String
Dim Valeur2 As String
Dim ChroniqueTCD As PivotField
Dim ChroniqueTCD2 As PivotField
Set ChroniqueTCD = ActiveSheet.PivotTables("Tableau_chronique_TCD").PivotFields("Identifiant")
Set ChroniqueTCD2 = ActiveSheet.PivotTables("Tableau_chronique_TCD2").PivotFields("Identifiant")
Valeur1 = Range("C4")
Valeur2 = Range("C13")
If ChroniqueTCD.DataRange <> ChroniqueTCD2.DataRange Then
ChroniqueTCD.EnableMultiplePageItems = True
ChroniqueTCD2.EnableMultiplePageItems = True
ChroniqueTCD2.ClearAllFilters
ChroniqueTCD2.PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=Valeur1
End If
End Sub |
De plus, j'ai essayé de passer par la solution segment, mais je ne maîtrise pas complétement cette méthode et j'ai aussi l'impression que comme mes 2 sources de données sont différentes, je ne peux pas établir les connexions. Et cette solution "ne m'interesse pas", car le fichier Excel avec mes données/graphs/TCD sont extraits à partir d'une autre macro.
