XL 2010 Modification filtre sur plusieurs TCD en 1 fois

[FrançoisFrançoisdu78]

Bonjour

J'ai fait des TCD 🙂 à partir de données présent dans un onglet.
Sur la même page, j'ai différents TCD qui affiche le même résultat (en tout cas sous la même forme), la différence se faisant sur les filtres.

Un des critères communs pour chaque TCD est le nom d'une personne.

A chaque fois, que je souhaite obtenir les résultats d'une personne, je dois changer le nom sur chaque TCD.

Ma question est simple (mais la réponse, je ne sais pas 🙄) comment peut on changer 1 seule fois le nom de cette personne qui se répercutera surtout les TCD à la fois.

J'espère avoir été clair😛

Bonne journée à tous

 

[Gardien de phare]

Bonjour,
Si les différents TCD ont la même source de données, c'est plutôt simple à faire avec les segments.
Si tu avais fourni un exemple, j'aurais fourni une démo de la réponse...
La référence sur la question est là : Ce lien n'existe plus

 

[FrançoisFrançoisdu78]

Effectivement, c'est clair, avec le tuto qui va bien.
Alors j'ai cherché et j'ai trouvé... rien

En fait, je me suis aperçu que j ai pas Excel 2010 mais Excel 2007. 😵

Bon bah, je reformule ma question mais pour une version 2007.

Merci à François (joli prénom 🙂) de cette première réponse
Dommage car ça me paraissait pas mal comme outil

A bientôt

 

[gosselien]

Bonjour,

sans fichier exemple...

P.

 

[Gardien de phare]

Bonsoir,
D'où l'intérêt de renseigner correctement la version Xl utilisée (tu indiques 2010). Sans les segments, on doit pouvoir le faire avec Vba, mais ce n'est pas moi qui t'aiderai sur Vba que je n'utilise pratiquement plus depuis des années.
Sinon, oui, Tableaux + TCD + Segments c'est certainement un des vrais plus de 2010 et suivants

 

[chris]

Bonjour à tous

Oui VBA dans ce cas. Suis overbooké. Je pourrai éventuellement sur un exemple concret Dimanche ou Lundi.

 

[FrançoisFrançoisdu78]

Bonjour

Voici l'exemple demandé pour les initiés.
Effectivement, une solution doit exister en VBA. Je voulais faire court.

les cours VBA sont un peu loin, il faudrait que je m'y remettre

A suivre

 

[gosselien]

Bonjour,
pas spécialiste des TCD en VBA, mais ceci semble fonctionner ;
à coller dans le code de la feuille (clic droit / "visualiser le code" et sauver le classeur en XLSM)

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pvt
Pvt = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
      "Int Nom intervenant").CurrentPage

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
      "Int Nom intervenant").CurrentPage = Pvt

ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
      "Int Nom intervenant").CurrentPage = Pvt
End Sub

 

[chris]

Bonjour à tous

A placer dans le module de la feuille Agence

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim Pvt
On Error GoTo Fin

Pvt = Target.PivotFields("Int Nom intervenant").CurrentPage
Application.EnableEvents = False
For Each TCD In PivotTables

    If TCD <> Target Then TCD.PivotFields("Int Nom intervenant").CurrentPage = Pvt
 
Next TCD
Fin: Application.EnableEvents = True
End Sub

RECHERCHEV dans les tableaux de droite pourrait être remplacé par LIREDONNEESTABCROISDYNAMIQUE

 

[FrançoisFrançoisdu78]

Bonjour

Merci pour vos réponses.
Je vais me lancer dans le VBA.

@chris: j'ai pris note sur le rechercheV, mais moi, j'aime bien le rechercheV 🙂

Merci à tous

 

[FrançoisFrançoisdu78]

Hello les amis

Petit retour d'expérience car j'ai testé les codes et voici les résultats :

1. Les 2 codes fonctionnent et ça c'est déjà bien 🙂
2. Toutefois, le 2e est un poil plus malin. En effet, il se met en place dès qu'une modification se fait sur L'UN des TCD et se répercute sur tous les autres. Le 1er nous oblige à modifier uniquement le TCD du haut.

Au choix de chacun.

En tout cas, bravo aux 2 contributeurs !!!🙂🙂🙂

@+