Filtrer plusieurs tcd à partir d'un tcd principal

[akilon]

Bonsoir à vous amis du forum

Voila j'aurai aimé savoir si c'est possible à partir d'un seul tcd pourvoir filtrer tous les autres par ex quand je selectionne le mois de Janvier tous les autres tcd aussi se selectionne à janvier

Merci d'avance

 

[JCGL]

Re : Filtrer plusieurs tcd à partir d'un tcd principal

Bonjour à tous,

Oui c'est possible avec un bout de code.
Un fichier sera nécessaire pour une aide adaptée.

A + à tous

 

[akilon]

Re : Filtrer plusieurs tcd à partir d'un tcd principal

Bonsoir JCGL

Merci pour ta réponse rapide, ci joint un fichier l'idée est de changer le mois et que tous les autres tcd se mettent aux memes mois

Merci encore

 

[JCGL]

Re : Filtrer plusieurs tcd à partir d'un tcd principal

Bonjour à tous,

Dans le module de la feuille TCD :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Mois")
        .ClearAllFilters
        .CurrentPage = Range("B1").Text
    End With

    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Mois")
        .ClearAllFilters
        .CurrentPage = Range("B1").Text
    End With

End Sub

Le changement de mois sur le TCD 1 agit sur le TCD2 et le TCD3

A + à tous

 

[akilon]

Re : Filtrer plusieurs tcd à partir d'un tcd principal

Re bonsoir

Yes ca marche merci beaucoup à toi vive le forum

A+

 

[akilon]

Re : Filtrer plusieurs tcd à partir d'un tcd principal

Re bonsoir

cependant j'ai un petit souci depuis cette macro sur les tcd j'ai excel qui bug un peu est ce lié?

 

[akilon]

Re : Filtrer plusieurs tcd à partir d'un tcd principal

Bonjour

est-ce normal que j'ai ma page excel qui tremble depuis que j'ai mis cette macro sur les tcd

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Mois")
.ClearAllFilters
.CurrentPage = Range("B1").Text
End With

With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Mois")
.ClearAllFilters
.CurrentPage = Range("B1").Text
End With

End Sub

Merci

 

[JCGL]

Re : Filtrer plusieurs tcd à partir d'un tcd principal

Bonjour à tous,

Ajoute l'anti "tremblement"

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating =0

   With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Mois")
       .ClearAllFilters
       .CurrentPage = Range("B1").Text
   End With

   With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Mois")
       .ClearAllFilters
       .CurrentPage = Range("B1").Text
   End With

End Sub

A+ à tous

 

[akilon]

Re : Filtrer plusieurs tcd à partir d'un tcd principal

Bonjour JCGL

Oui merci ca marche mais ca tremble toujours un peu mais moin qu'avant

A +