Bonjour,
Dans un TCD qui est créé automatiquement à partir d'un bouton et de choix dans un formulaire je souhaiterais sélectionner les éléments du champ de ligne en fonction des éléments choisis dans une listbox.
Le morceau de code ci-dessous fonctionne très bien pour des éléments fixes.
Ce que je n'arrive pas à faire c'est remplacer tartempion par un élément sélectionné de la listbox. J'ai esayé des choses du style
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 With ActiveSheet.PivotTables("Tableau croise").PivotFields("Nom") .PivotItems("tartempion").Visible = False .PivotItems("trucmuche").Visible = True End With
ou encore
Code : Sélectionner tout - Visualiser dans une fenêtre à part PivotItems(ListeNom.List(2))
mais rien n'y fait.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 NomTCD=ListeNom.List(2) PivotItems(NomTCD)
Si j'arrivais à le faire pour 1 élément je devrais m'en sortir pour le faire sur tous avec une boucle.
Merci par avance à ceux qui auraient une idée lumineuse pour ce faire.
Amicalement
Partager