Bonjour,

J'alimente une ComboBox (contrôle ActiveX) à partir d'un TCD comme suit:

1. Création du TCD (par macro)
2. Simultanément, les valeurs d'un pivotfield du tableau viennent remplir la combobox.
3. Au moment de sélectionner n'importe quelle valeur dans la Combobox...
>> "Erreur 438, propriété ou méthode non gérée par cet objet"

Est-ce une erreur d'événement? J'ai pourtant essayé _Click et _Change.
Erreur de syntaxe ? En tout cas voici mon code, placé dans le code source de l'onglet TCD.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_Click()
 
Dim PT As PivotTable
Dim PI As PivotItem
 
Set PT = ActiveWorkbook.Sheets("TCD").PT("Tableau croisé dynamique1")
 
    For Each PI In PT.PivotFields("Code projet").PivotItems
        ComboBox1.AddItem (PI)
    Next
 
End Sub
Merci d'avance!