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.
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
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
PivotItems(ListeNom.List(2))
ou encore
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
NomTCD=ListeNom.List(2)
PivotItems(NomTCD)
mais rien n'y fait.

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