Filtrer plusieurs tcd à partir d'un tcd principal

JCGL

XLDnaute Barbatruc

• 28 Décembre 2011

• #2

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

 

Vote positif 0 Vote négatif

A

akilon

XLDnaute Occasionnel

• 28 Décembre 2011

• #3

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

 

Pièces jointes

• test tcd.xlsm

  14.2 KB · Affichages: 65
• test tcd.xlsm

  14.2 KB · Affichages: 65
• test tcd.xlsm

  14.2 KB · Affichages: 69

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Décembre 2011

• #4

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

Bonjour à tous,

Dans le module de la feuille TCD :

Code:

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

 

Vote positif 0 Vote négatif

A

akilon

XLDnaute Occasionnel

• 28 Décembre 2011

• #5

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

Re bonsoir

Yes ca marche merci beaucoup à toi vive le forum

A+

 

Vote positif 0 Vote négatif

A

akilon

XLDnaute Occasionnel

• 28 Décembre 2011

• #6

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é?

 

Vote positif 0 Vote négatif

A

akilon

XLDnaute Occasionnel

• 29 Décembre 2011

• #7

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 29 Décembre 2011

• #8

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

Bonjour à tous,

Ajoute l'anti "tremblement"

Code:

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

 

Vote positif 0 Vote négatif

A

akilon

XLDnaute Occasionnel

• 29 Décembre 2011

• #9

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 +

 

Vote positif 0 Vote négatif