Lier des tableaux croisés dynamiques

[mabys]

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

 

[tomtom323232]

Re : Lier des tableaux croisés dynamiques

Est ce plus clair et possible ?

 

[tomtom323232]

Re : Lier des tableaux croisés dynamiques

Est ce plus clair ? et est ce que quelqu'un peut créer ce code ? je dois rendre cela aujourd'hui ...

 

[chris]

Re : Lier des tableaux croisés dynamiques

Bonjour

J'ai commencé à regarder : c possible mais je n'ai pas finalisé et ne pourrai m'y remettre avant demain...

 

[tomtom323232]

Re : Lier des tableaux croisés dynamiques

pas de soucis prenez votre temps c'est pas grave en fait
merci beaucoup.

 

[chris]

Re : Lier des tableaux croisés dynamiques

Bonjour

Une solution ci-jointe avec ajustement espace entre les 2 TCD.
Multi selection interdite en champ de filtre.
Les TCD sont nommés TCD1 et TCD2.

 

[tomtom323232]

Re : Lier des tableaux croisés dynamiques

C'est dingue, parfait je vous remercie énormément.

 

[tomtom323232]

Re : Lier des tableaux croisés dynamiques

Est ce que je peux juste te demander d'ajuster les colonnes pour BAG LAD BIN et BAG LAD SAF PAC parce qu'ils passent pas en totalité et je sais pas comment tu as fait les ajustement d'espace donc je préfère pas y toucher ?
merci d'avance

 

[chris]

Re : Lier des tableaux croisés dynamiques

Bonjour

J'ai modifié le code car il avait une petite erreur mais j'ai aussi regardé plus en détail ton fichier.
En mettant des dates en colonne, tu risques de démultiplier le nombre de colonnes très vite et mettre les TCD côte à côte aura un intérêt limité s'ils sont très larges.

Tout le code est dans Thisworkbook (j'ai supprimé Module1 laissé par erreur) et l'ajustement des colonnes est en fin de procédure.
Tu peux modifier en laissant beaucoup plus de colonnes...

Classeur modifié dans le fil précédent.

 

[tomtom323232]

Re : Lier des tableaux croisés dynamiques

Génial encore merci, c'est parfait.

 

[tomtom323232]

Re : Lier des tableaux croisés dynamiques

Est ce que tu peux juste ajuster le code à ce fichier, parce que il est un peu compliqué et comme je sais pas exactement comment tu l'as construit il y forcement des choses qui marcheront pas
j'ai mis en lignes les TCD donc pas besoin d'espace entre eux, c'est juste mes données qui sont sur différentes feuilles et ils sont bien appelés TCD1 TCD2 et TCD3.
Merci promis je ne t'embête plus après.

 

[chris]

Re : Lier des tableaux croisés dynamiques

Bonjour

Voila.

La prochaine fois essaye de communiquer toutes les données du problème dès le début ...

 

[tomtom323232]

Re : Lier des tableaux croisés dynamiques

oui j'ai été chiant désolé, encore merci mille fois.

A bientôt.

 

[tomtom323232]

Re : Lier des tableaux croisés dynamiques

Désolé d'intervenir encore. Est-il possible d'expliquer le code sur certains points car il faut que je le modifie encore. J'ai maintenant les infos sous forme de tableau, donc je dois je suppose remplacer les "Range" par "Table", et j'ai plusieurs pagefields et celui utilisé en filtre n'est pas le premier donc surement changer "PageFields(1)". Et expliquer le passage de la vérification car je pense que c'est la que cela bloque. A quoi correspond le 2 et le 100, le x1Values et x1Part, et mes infomations filtrés ne sont plus en colonne A.

Sheets(Range(Mid(pt.SourceData, 2, 100)).Parent.Name).Activate
On Error Resume Next
Set Choix2 = ActiveSheet.Range("A:A").Find(What:=Choix, After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

 

[chris]

Re : Lier des tableaux croisés dynamiques

Bonjour

...J'ai maintenant les infos sous forme de tableau, donc je dois je suppose remplacer les "Range" par "Table",

Pour la recherche cela ne change pas grand chose

et j'ai plusieurs pagefields et celui utilisé en filtre n'est pas le premier donc surement changer "PageFields(1)"

oui mettre le numéro correspondant à la position.

Et expliquer le passage de la vérification car je pense que c'est la que cela bloque. A quoi correspond le 2 et le 100,
Sheets(Range(Mid(pt.SourceData, 2, 100)).Parent.Name).Activate

Si la source est un tableau pour chaque TCD remplacer par
Sheets(Range(pt.SourceData).Parent.Name).Activate
(le 2 servait à partir du caractère suivant le = pour le nom de la plage source (pas de = quand le nom se réfère à un tableau).

le x1Values (valeurs) et x1Part (peut chercher sur une partie de cellule. LookAt:=xlWhole serait plus rigoureux)
Ce sont des paramètres de la recherche. Ouvre la fenêtre de recherche d'Excel, clique sur le bouton options et tu comprendras...


et mes infomations filtrés ne sont plus en colonne A.

Remplacer A:A par la colonne qui va bien

Pour le reste n'hésite pas à user et abuser de la touche F1 et du mode debug : sinon tu n'apprendras jamais...

 

[tomtom323232]

Re : Lier des tableaux croisés dynamiques

parfait merci