Modifier la valeur d'un champ dans plusieurs tableaux croisés dynamiques

E

emmadrienlaes

Guest

• 28 Mars 2012

• #2

Re : Modifier la valeur d'un champ dans plusieurs tableaux croisés dynamiques

?? ??

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 28 Mars 2012

• #3

Re : Modifier la valeur d'un champ dans plusieurs tableaux croisés dynamiques

Bonjour

Pas de véritables TCD dans le classeur joint mais fais une petite recherche sur ce forum, la question a déjà été posée et des codes VBA données pour résoudre cela.

 

Vote positif 0 Vote négatif

E

emmadrienlaes

Guest

• 28 Mars 2012

• #4

Re : Modifier la valeur d'un champ dans plusieurs tableaux croisés dynamiques

Désolé,

Je n'arrive pas à adapter les réponses sur d'autres discussion à mon problème.

Dans le fichier joint (modifié), je souhaiterai que la valeur de B1 et B2 se retrouve automatiquement et respectivement en B5 B6, L5 L6 et W5 W6.

Merci pour votre aide

 

Pièces jointes

• essai.zip

  507.7 KB · Affichages: 39
• essai.zip

  507.7 KB · Affichages: 34
• essai.zip

  507.7 KB · Affichages: 39

Vote positif 0 Vote négatif

E

emmadrienlaes

Guest

• 28 Mars 2012

• #5

Re : Modifier la valeur d'un champ dans plusieurs tableaux croisés dynamiques

Désolé... je n'y arrive pas avec ce que je trouve...

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 28 Mars 2012

• #6

Re : Modifier la valeur d'un champ dans plusieurs tableaux croisés dynamiques

Bonjour

Code à placer dans le module de la feuille contenant les TCD

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("B1:B2")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each TCD In ActiveSheet.PivotTables
        With TCD
            .PivotFields("DPT").CurrentPage = "(All)"
            .PivotFields("VILLE").CurrentPage = "(All)"
            .PivotFields("DPT").CurrentPage = Range("B1").Value
            .PivotFields("VILLE").CurrentPage = Range("B2").Value
        End With
    Next TCD
    Application.EnableEvents = True
End Sub

 

Vote positif 0 Vote négatif