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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Public WithEvents Le_COMBO As MSForms.ComboBox
Dans userform :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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