ComboBox et événement

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:

---

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!

Si c'était moi, je remplirais la ComboBox à la création du Pivot et pas au moment de cliquer dessus.

Bonsoir.

Et j'essaierais plutôt

Code:

---

Me.ComboBox1.AddItem PI.Name

---

Cordialement,

PGZ

Bonjour,

merci pour vos remarques.
J'ai résolu le problème en déplaçant le code de la feuille vers le module.

Ce qui me permet de passer à un autre problème: pourquoi la propriété .ChildItem ne marche pas...mais ceci est une autre histoire.

Merci pour votre aide,


Nils