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 :
Dans userform :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Public WithEvents Le_COMBO As MSForms.ComboBox
Problème à la ligne set Combo=... il me marque une erreur type mismatch.
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
Pouvez vous m'aider ?
Cordailement,
Fyejumpy
Partager