Accueil – Le CFO masqué › Forums › VBA › Filtre Plusieurs TCD VBA
Étiqueté : tcd filtre vba macro
- Ce sujet contient 5 réponses, 3 participants et a été mis à jour pour la dernière fois par
Lauriedvldr, le il y a 5 années et 8 mois.
-
AuteurMessages
-
1 mai 2018 à 5 h 04 min #42912
Marie MM
ParticipantBonjour à tous ,
Je cherche à filtrer 2 TCD avec une macro / VBA via une zone de liste déroulante
J’ai fait un fichier Excel assez simple ci-joint.
Je ne veux pas utiliser de segment car j’ai plusieurs feuilles à construire avec plusieurs bases de données différentes, mais toutes peuvent être filtrer par le champs : nom du consultant.
Mon code vba doit être faux
Je voudrais lorsque nous sélectionnons « consultant 1 » dans la liste déroulante que les deux TCD soient automatiquement filtrés par « Consultant 1 »Mon code :
Sub Zonecombinée1_QuandChangement()
‘
‘ Zonecombinée1_QuandChangement Macro
‘
ActiveSheet.PivotTables(“PivotTable1”).PivotFields(“Nom Consultant”).ClearAllFilters
ActiveSheet.PivotTables(“PivotTable1”).PivotFields(“Nom Consultant “).CurrentPage = ActiveSheet.Range(“C2”).Value
ActiveSheet.PivotTables(“PivotTable2”).PivotFields(“Nom Consultant “).ClearAllFilters
ActiveSheet.PivotTables(“PivotTable2”).PivotFields(“Nom Consultant “).CurrentPage = ActiveSheet.Range(“C2”).Value
End SubExcel me dit : Impossible de lire la propriété PivotTables dans la classe Worksheet
Je n’ai jamais fait de Macro ni de vba …..
Ci-joint mon fichier
Merci pour votre aideAttachments:
You must be logged in to view attached files.1 mai 2018 à 11 h 22 min #42919Sophie Marchand
ParticipantBonjour,
Je montre plusieurs façons de faire dans l’article suivant: https://www.lecfomasque.com/controler-plusieurs-tableaux-croises-dynamiques-avec-un-seul-menu-deroulant/.
Au plaisir,
Sophie
1 mai 2018 à 11 h 45 min #42921Marie MM
ParticipantBonjour Sophie,
Oui je vous remercie , c’est d’ailleurs grâce à vous que j’ai eu l’idée de faire cela et grâce à votre article.
J ai été séduite par vos idées mais la macro/ le code vba ne fonctionne pas !
Donc je suis coincée
Marie
1 mai 2018 à 16 h 39 min #42925Sophie Marchand
ParticipantBonjour,
Vous aviez 2 erreurs dans votre code.
Premièrement, le nom de vos tableaux croisés dynamiques étaient en français et non en anglais. J’ai donc modifié le tout.
Ensuite, il y avait des espaces en trop dans la mention du champ Nom Consultant.
En corrigeant ces 2 éléments, les 2 tcd peuvent maintenant être contrôlés par le même menu.
Au plaisir,
Sophie
Attachments:
You must be logged in to view attached files.2 mai 2018 à 1 h 30 min #42929Marie MM
ParticipantBonjour Sophie
Un grand merci pour votre aide !
Si cela vous intéresse et aussi vos abonnés , ci joint une autre solution .
Excellente journée.
Marie
Attachments:
You must be logged in to view attached files.12 juin 2019 à 7 h 49 min #55619Lauriedvldr
ParticipantBonjour Sophie,
J’essaye d’utiliser le même code. Cependant, je fais face à une erreur bloquante:
Erruer d’exécution 1004
Impossible de définir la propriété CurrentPage de la classe PivotFieldLa macro fonctionne pour “vider” la sélection du filtre actuelle, mais n’insère donc pas la sélection souhaitée.
Je vous remercie par avance pour votre rapide réponse.
Bien cordialement,
Laurie-Anne
-
AuteurMessages
- Vous devez être connecté pour répondre à ce sujet.