Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lier des tableaux croisés dynamiques

  • Initiateur de la discussion Initiateur de la discussion mabys
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mabys

XLDnaute Nouveau
Bonjour,

J'ai un fichier excel avec 20 colonnes.

J'ai mis en place plusieurs tableaux croisés dynamiques, les données de filtre sont toujours les mêmes. Comment puis-je faire pour que le filtre effecté sur le premier tableau modifie également le filtre des autres tableaux ?

Merci beaucoup pour votre aide...
 
Re : Lier des tableaux croisés dynamiques

Bonjour
Je pense qu'il faudrait voir ton fichier ou un bout de celui ci pour te répondre

VOilà l'exemple de fichier, j'ai un peu de mal à m'en sortir avec les solutions présentées, le VB m'étant aussi familier que la reproduction des drosophiles...

Merci pour votre aide !
 

Pièces jointes

Re : Lier des tableaux croisés dynamiques

L'étude des Drosophiles me rappelle mes très lointains cours de lycée et mon incapacité à assimilier les données ! Et pourtant j'aurais aimé comprendre !
Pour le VB c'est pareil, j'essaie de comprendre mais c'est un langage de spécialistes dont je ne crois pas être capable de faire partie !

Il n'y avait absolument rien de péjoratif ! De l'humour à prendre au premier degré !
 
Re : Lier des tableaux croisés dynamiques

Bonjour à tous,

Un essai avec :

Code:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0
If Target.Address(0, 0) = "D1" Then
ActiveSheet.PivotTables("Tableau croisé dynamique9").PivotFields("COMMUNE2"). _
        CurrentPage = Range("D1").Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("COMMUNE2"). _
        CurrentPage = Range("D1").Value
    Range("D1").Select
    ActiveWorkbook.RefreshAll
End If
End Sub

D1 est une liste de validation

A+

Édition: Salut BCharef ;-)
 

Pièces jointes

Dernière édition:
Re : Lier des tableaux croisés dynamiques

Rebonjour mabys,
Rebonjour à toutes et à tous,
Salut JCGL.
Voilà, essayez de voir, dans l'espoir qu'il conviendra.

Comme, il est utile de porter à votre connaissance que c'est ma premiére macro et que, je suis un ignare en matiére de VBA.

Code:
Private Sub Worksheet_Activate()
For i = 1 To PivotTables.Count
    ActiveSheet.PivotTables(i).RefreshTable
Next

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
For i = 1 To PivotTables.Count
    ActiveSheet.PivotTables(i).PivotFields("COMMUNE2").CurrentPage = Target.Text
Next
End If

End Sub

Et, je suis preneur en cas de modification pour l'amélioration du présent code.

Cordialement.

Edit:Heureux qui profite de l'expérience des autres.
 

Pièces jointes

Dernière édition:
Re : Lier des tableaux croisés dynamiques

Bonjour,

Un complément à ce sujet me serait utile. Serait ce possible d'avoir un code qui gère 2 listes différentes ?
Cela serait super, merci à vous.
Sinon je peux ouvrir un autre sujet, si cela est préférable.
 
Re : Lier des tableaux croisés dynamiques

Bonjour et bienvenue

Oui il est plus simple d'ouvrir une autre fil mais ce n'est pas grave. L'intérêt est que maintenant ou peut préciser la version Excel dans l'en-tête du message.

Il serait bien aussi de renseigner la version Excel dans ton profil : les TCD ont beaucoup changé avec 2010 et on n'a plus besoin de VBA pour synchroniser des TCD basés sur les mêmes données..

Poste un exemple de ton fichier : cela facilite l'aide.
 
Re : Lier des tableaux croisés dynamiques

Très bien merci.

Donc je suis sur Excel 2010, ci-joint mon fichier.
Donc j'ai 2 filtres avec 2 listes d'informations différentes. J'aimerais créer une liste déroulante ou une barre de recherche qui fonctionne simultanément avec ces 2 filtres. Vu que quelque fois les 2 filtres n'auront pas les mêmes produits, peut être juste pouvoir relancer une autre recherche ou recliquer sur la liste déroulante pour rechercher un autre produit.
Merci d'avance si c'est possible.
 

Pièces jointes

Re : Lier des tableaux croisés dynamiques

Bonjour

C'est un peu ambigu : tes deux listes sources semblent indépendantes.
Si oui pourquoi les accoler ?

Il est nettement préférable de déclarer les données sources en tableau (Onglet Accueil) et de baser les TCD sur le tableau et non sur une plage constituée de colonnes entières.

Le problème pour synchroniser des TCD, issus de source distinctes, sur des champs qui risquent de ne pas contenir les mêmes valeurs, c'est qu'il faut tester l’existence des valeurs dans les deux sources avant de tenter la moindre synchro.
Si la source est volumineuse ça peut ralentir un peu l'obtention du résultat.

Dernier point : je ne sais si tes sources sont représentatives mais, si c'est le cas, on a une ligne de TCD pour une ligne source.
Je ne vois donc pas l'intérêt du TCD ici.

Peux-tu être plus explicite sur ton objectif opérationnel ?
 
Re : Lier des tableaux croisés dynamiques

oui désolé, non justement mes 2 listes sources sont plus ou moins communes et j'ai donc besoin de les comparer si les données dans les filtres sont les mêmes.
J'ai pas trouvé de différences à basé le TCD sur un tableau ou des colonnes
le TCD rend ca plus facile à lire, mes données sont pas du tout homogènes.
sinon je pensais ca possible, de faire un code un peu comme celui du dessus et par forcément vérifié. Mais si les 2 données sont les mêmes le code continue et sinon ca stoppe direct et on relance la liste déroulante ou autre. Juste un true or false ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Formule Excel
Réponses
4
Affichages
248
Réponses
1
Affichages
112
Réponses
9
Affichages
678
Réponses
1
Affichages
459
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…