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

[emmadrienlaes]

Bonjour,

Dans une même feuille, je souhaiterai savoir s'il est possible de modifier la valeur d'un champ dans 3 TCD en même temps ?

Sur l'exemple joint, le champ ville V2 - L2 et V2 (c'est une copie de mon TCD... non actif)

Merci d'avance pour vos retours !!

Cordialement

Christophe

 

[emmadrienlaes]

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

?? ??

 

[chris]

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.

 

[emmadrienlaes]

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

 

[emmadrienlaes]

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...

 

[chris]

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

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