Problème création de combobox dans cellule de listView

Bonjour,

Mon problème est le suivant j'ai un listView qui s'appel "resultat", le userform s'appel "modif". Au sein de chacune de ces cellule je voudrais un combobox.

Pour cela j'ai fais :
J'ai créé un module de classe combobox1 avec Le_Combobox en attribut.

Combobox1 :

Code:

---

1 2	Public WithEvents Le_COMBO As MSForms.ComboBox

---

Dans userform :

Code:

---

1 2 3 4 5 6 7 8 9

Dim Combo As ComboBox   Set Combo = modif.Controls("resultat").ListItems.add("MSForms.ComboBox", , True) ReDim Preserve ComboTab(0 To i - 1) 'Création de l'objet Combobox dans le tableau Set ComboTab(i - 1) = New Combobox1 'Affectation de la combo précédemment créé Set ComboTab(i - 1).Le_COMBO = Combo

---

Problème à la ligne set Combo=... il me marque une erreur type mismatch.

Pouvez vous m'aider ?

Cordailement,
Fyejumpy