Discussion :

[Mathsdeb]

Bonsoir,

Savez vous comment je peux connecter 2 TCD entre eux qui se trouvent dans la même feuille ?

Ce que je voudrais c'est que lorsque je filtre le premier tableau que le deuxième se fasse en même temps aussi :



Vous allez peut être me dire de créer des slicers et de les connecter aux tableaux. Mais je ne veux pas utiliser de slicers.

Merci pour votre retour

Cordialement

[parmi]

Bonjour,

Tu pourrais essayer de cette manière

Dans le code de la feuille, tu mets ceci (ça pourrait aussi être dans ThisWorkbook en ajoutant le paramètre Sh)

Code :

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

1
2
3
4
5
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Application.EnableEvents = False
    Filtrer Target
    Application.EnableEvents = True
End Sub

Et dans un module ou dans la feuille (Change les noms des TCD selon ce que tu as)

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
Sub Filtrer(TCD1 As PivotTable)
    Dim TCD2 As PivotTable
    Dim Fld As PivotField
    Dim Itm As PivotItem
 
    If TCD1.Name = "Tableau croisé dynamique1" Then
        Set TCD2 = ActiveSheet.PivotTables("Tableau croisé dynamique2")
    Else
        Set TCD2 = ActiveSheet.PivotTables("Tableau croisé dynamique1")
    End If
 
    On Error Resume Next
    For Each Fld In TCD1.PivotFields
        For Each Itm In Fld.PivotItems
            TCD2.PivotFields(Fld.Position).PivotItems(Itm.Name).Visible = Itm.Visible
        Next
    Next
    On Error GoTo 0
    Application.EnableEvents = True
End Sub

J'ai fait des tests rapides et ça semble bien fonctionner pour les 2 TCD s'ils sont identiques.
Autrement, il faudrait modifier quelque peu le code, j'imagine...

[Mathsdeb]

Bonjour Parmi,

Excellent. Ca marche très très bien !

Merci infiniement Parmi

Cordialement