Bonsoir à tous.

Très modeste développeur débutant, je rencontre le problème suivant :

Pour faire simple, je crée différents contrôle dans une UserForm. Il y a des checkbox, textbox, combobox et listbox.

tout fonctionne, sauf pour ce qui est des listbox.

mon code est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim lecontrol As Control
 
Set lecontrol = userform1.controls.Add("forms.listbox.1", 1)
 
With lecontrol
.Top = dtopbx
.Left = leftoffset
.Name = "field" & huf - 1
.Width = dwidth
.SetFocus
End With
Résultat : dans la Userform apparaît uniquement la liste des items de la liste, ouverte si je puis dire, avec à la fois une barre de défilement horizontale et une barre de déf. verticale, mais je ne vois pas la zone de saisie (la textbox) avec la petite flèche à droite.
Autrement dit, je ne puis pas sélectionner quelque item dans la liste.

ce qui est étrange, c'est que si je modifie mon code en remplaçant controls.add("forms.listbox.1", 1) par controls.add("forms.combobox.1", 1), ça marche parfaitement : je crée bien une combobox, affichée et fonctionnant comme il se devrait.

mais c'est une listbox dont j'ai besoin…

D'avance je vous remercie de votre temps et de vos suggestions.

vous souhaitant le meilleur,
DanielTur