Faire référence à un TCD dans un userform

Bonjour

J'ai créé un TCD que j'ai renommer "TCD" à partir de l'onglet 'options du tableau croisé dynamique'. Je souhaiTe afficher le TCD dans un userform. J'ai donc créé une listbox comme pour insérer un tableau normal. Mais en tapant TCD dans Rowsource, j'ai un message d'erreur me disant que la valeur de propriété n'est pas valide. De plus, je n'arrive pas à renommer le tcd en passant par l'onglet gestionnaire de nom.

Par contre, j'ai pu l'actualiser à partir d'une macro enregistrée qui a pris en compte son nom.

Est-ce que quelqu'un pourrait m'aider ? Je suis débutante en VBA et je n'y comprends pas grand chose..

Bonsoir,

Pour afficher votre TCD dans la Listbox de votre UserForm, il suffit d'utiliser cette instruction :

Private Sub UserForm_Initialize()

    Me.ListBox1.RowSource = Sheets("nom_feuille").PivotTables("TCD").TableRange1.Address

End Sub

où nom_feuille est le nom de la feuille où est situé votre TCD.