Discussion :

[tienne1]

bonjour,

Je n'arrive pas a lier les filtres de 2 tableaux dynamiques. Je voudrais, lorsque je choisis dans le filtre de mon premier tableau, que ce filtre devienne aussi le filtre du second tableau.
Voici le code que j'ai commence a utiliser pour faire cette manip:

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
 
Sub liaisonTableauIndic()
 
Dim monPivIt As Object, Mavariable As Long, i As Long
 
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("PivotTableIndic").PivotFields("Code Article")
 
For Each monPivIt In .PivotItems
monPivIt.Visible = True
Next
On Error Resume Next
Application.ScreenUpdating = False
For Each monPivIt In .PivotItems
If monPivIt.Visible = True Then monPivIt.Name = Mavariable
Next
End With
 
With ActiveSheet.PivotTables("PivotTableRatio").PivotFields("Code Article")
If i = Mavariable Then monPivIt.Name = True Else monPivIt.Name = False
 
Application.ScreenUpdating = True
End With
End Sub

Merci d'avance pour votre aide.

[Lynx92260]

bonjour ,

Pour refleter les choix du filtre la soluce ci-dessous à adapter

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
 
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
 
If Target.Name <> "Tableau croisé dynamique1" Then Exit Sub
 
Dim PivotTblTcd1 As PivotTable
Dim PivotTblTcd2 As PivotTable
Dim x As Integer
    Set PivotTblTcd1 = ThisWorkbook.Worksheets("TCD").PivotTables("Tableau croisé dynamique1")
    Set PivotTblTcd2 = ThisWorkbook.Worksheets("TCD").PivotTables("Tableau croisé dynamique2")
 
 
    For x = 1 To PivotTblTcd1.PivotFields("Pays").PivotItems.Count
        PivotTblTcd2.PivotFields("Pays").PivotItems.Item(x).Visible = PivotTblTcd1.PivotFields("Pays").PivotItems.Item(x).Visible
    Next
 
    ' Faire le raffraichissement du tcd 2
    PivotTblTcd2.RefreshTable
End Sub

Je pense avec cette approche cela devrait fonctionner il suffit d'adapter ce code au contexte de la feuille pivottableindic et pivottabletatio si les deux tcd partage la meme source de données.

[tienne1]

Merci Lynx mais ca ne marche toujjours pas. J'ai changer et mis le nom de mes tcd mais rien de change lorsque je choisi une valeur dans mon filtre, cela ne change le filtre de l'autre tcd. Est ce qu'il faut que je rajoute qqchose si mes tableaux st ds 2 feuilles differentes.
Merci en tt cas de ton aide.

[Krovax]

Bonjour,
Regarde ce morceau de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Set PivotTblTcd1 = ThisWorkbook.Worksheets("TCD").PivotTables("Tableau croisé dynamique1")
    Set PivotTblTcd2 = ThisWorkbook.Worksheets("TCD").PivotTables("Tableau croisé dynamique2")

Il permet de dire quelle tableau est PivotTblTcd1 et quel tableau est PivotTblTcd2.
Par exemple le 1 est le tableua dans thisworkbook (ce classeur), dans longlet (worksheets) TCD, et c'est un pivot table (TCD) nommé Tableau croisé dynamique1.
Pareil pour le 2 juste sont nom change.

C'est a toi de les modifier pour les adapter a ton cas en modifiant le nom du tableau et la feuille ou il se trouve

[tienne1]

Je l'ai deja modifier.
Voici ce que ca me donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub LinkTableUpdate(ByVal Target As PivotTable)
 
If Target.Name <> "PivotTableIndic" Then Exit Sub
 
Dim PivotTableIndic As PivotTable
Dim PivotTableRatio As PivotTable
Dim x As Integer
Set PivotTableIndic = ThisWorkbook.Worksheets("TableIndic").PivotTables("PivotTableIndic")
Set PivotTableRatio = ThisWorkbook.Worksheets("Prediction").PivotTables("PivotTableRatio")
    For x = 1 To PivotTableIndic.PivotFields("Article Code").PivotItems.Count
        PivotTableRatio.PivotFields("Article Code").PivotItems.Item(x).Visible = PivotTableIndic.PivotFields("Article Code").PivotItems.Item(x).Visible
    Next
    PivotTableRatio.RefreshTable
End Sub

Je ne comprend pas.
D'ailleurs, comment fait t on pour tester ce code car etant private sub, il est invisible lorsque je veux le tester?
Merci de ton aide.

[Krovax]

Le code se lance a chaque mise a jour du TCD , mais il faut l'avoir mis au bon endroit (enfin je crois)
Met une pause au début du code (le petit point rouge dans la marge )
Et fait une mise a jour du TCD regarde si ca le lance. Je ne sais pas si le code doit être dans le code de la feuille ou thisworkbook ou ailleurs je ne me suis jamais lancé dans les TCD

[tienne1]

Ca ne fonctionne tjrs pas, je comprends pas.
est que quelqu'un pourrait jeter un coup d'oeil a mon code pour voir si il y a qq chose qui cloche.
Merci

[Lynx92260]

de ton fichier excel serait la bienvenue pour prospecter dans code afin de solutionner le déclenchement de la mise à jour des filtres .

A plus .......