Contact: 514-605-7112 / info@lecfomasque.com

Filtre Plusieurs TCD VBA

Mots-clés : 

Ce sujet a 5 réponses, 3 participants et a été mis à jour par  Lauriedvldr, il y a 1 mois et 1 semaine.

6 sujets de 1 à 6 (sur un total de 6)
  • Auteur
    Messages
  • #42912

    Marie MM
    Participant

    Bonjour à 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 Sub

    Excel 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 aide

    fichiers attachés:
    You must be logged in to view attached files.
    #42919

    Sophie Marchand
    Admin bbPress

    Bonjour,

    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

    #42921

    Marie MM
    Participant

    Bonjour 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

    #42925

    Sophie Marchand
    Admin bbPress

    Bonjour,

    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

    fichiers attachés:
    You must be logged in to view attached files.
    #42929

    Marie MM
    Participant

    Bonjour 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

    fichiers attachés:
    You must be logged in to view attached files.
    #55619

    Lauriedvldr
    Participant

    Bonjour 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 PivotField

    La 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

6 sujets de 1 à 6 (sur un total de 6)

Vous devez être connecté pour répondre à ce sujet.