Filtre Plusieurs TCD VBA

Accueil – Le CFO masqué › Forums › VBA › Filtre Plusieurs TCD VBA

Mots-clés : 

  • Ce sujet contient 5 réponses, 3 participants et a été mis à jour pour la dernière fois par Lauriedvldr, le il y a 4 années et 10 mois.
6 sujets de 1 à 6 (sur un total de 6)
  • Auteur
    Articles
  • 1 mai 2018 à 5 h 04 min #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

    Attachments:
    You must be logged in to view attached files.
    1 mai 2018 à 11 h 22 min #42919
    Sophie Marchand
    Participant

    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

    1 mai 2018 à 11 h 45 min #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

    1 mai 2018 à 16 h 39 min #42925
    Sophie Marchand
    Participant

    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

    Attachments:
    You must be logged in to view attached files.
    2 mai 2018 à 1 h 30 min #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

    Attachments:
    You must be logged in to view attached files.
    12 juin 2019 à 7 h 49 min #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

  • Auteur
    Articles
6 sujets de 1 à 6 (sur un total de 6)
  • Vous devez être connecté pour répondre à ce sujet.