Excel 2010 / vba / problème avec la création d'une listbox dans un userform

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:

---

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

re
rien capté!!!
une listebox n'a pas ce qu'une combobox a c'est a dire un textebox en haut pour saisie et le boutton pour dropper ???????????:koi:

En pièce jointe : ce que j'obtiens.

pas moyen de sélectionner un item, pas de zone de texte où une sélection apparaît normalement.

qu'est-ce qui ne va pas dans mon code ?

pour sélectionner, il suffit de cliquer dessus, non ?
Tu peux vérifier que l'on peut aller sur la liste

Code:

---

enabled=true

---

Pièce jointe 404702

Bonjour Sogedic,

Je te remercie de ta prompte réponse.

eh non, je ne peux rien sélectionner. Rien ne se passe si je clique ou double-clique sur l'un ou l'autre des items des listbox. Listes qui apparaissent en permanence comme le montra l'image que j'ai envoyée.

j'ai essayé de forcer le mode enabled comme tu le suggérais, sans résultat.

c'est à n'y rien comprendre. Toutes mes combobox fonctionnent sans problème avec le même type de code….

merci de ton temps.
Daniel

Tu peux nous donner ton fichier ?

Re-bonjour et grand merci. Oui, bien sûr, je peux envoyer mon fichier et ferai ça lundi à mon retour. Mon application comporte... 44 modules. J’enverrai celui qui concerne cette userform.
Mais surtout ne te défonce pas sur ma problématique. J’ai une solution, même si imparfaite : à la place des listbox je crée des combobox, dont je mets la propriété Style = 2.
Les combo se comportent alors comme des listbox, sauf que je ne peux pas effacer (au clavier) toute sélection.
Donc j’ai ajouté dans chaque liste de combo un premier item, null. Sélectionner cet item revient à effacer la saisie. Pas très élégant, mais bon. .
Bon w/e. Daniel

Bonsoir Sogedic,

je reviens vers toi avec ma question de "débutant qui rate quelque chose d'évident".

voici un petit code de test qui produit exactement le même phénomène que je ne m'explique pas. J'ai fait une userform vide et écrit ce code pour créer une listbox dedans.

Résultat : je n'obtiens qu'une liste visible en permanence, sans la zone de saisie. la seule chose que je puis faire, c'est mettre en surbrillance tel ou tel item de la liste.

ce code produit aussi une combobox. Aucun problème là. la combobox fonctionne.

qu'est-ce que je rate ?

cordialement,
Daniel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

Option Explicit   Sub test_listbox()   Dim lecontrol As Control   Load UserForm1   Set lecontrol = UserForm1.Controls.Add("forms.listbox.1", 1)   With lecontrol .Name = "field" & 1 .Top = 20 .Left = 30 .Width = 70 .SetFocus End With   'pour peupler la listbox :     UserForm1.Controls("field1").AddItem "janvier" UserForm1.Controls("field1").AddItem "février" UserForm1.Controls("field1").AddItem "mars" UserForm1.Controls("field1").AddItem "avril" UserForm1.Controls("field1").AddItem "mai" UserForm1.Controls("field1").AddItem "juin" UserForm1.Controls("field1").AddItem "juillet" UserForm1.Controls("field1").AddItem "août" UserForm1.Controls("field1").AddItem "septembre"     Set lecontrol = UserForm1.Controls.Add("forms.combobox.1", 1)   With lecontrol .Name = "field" & 2 .Top = 20 .Left = 150 .Width = 50 .SetFocus End With   'pour peupler la combobox :     UserForm1.Controls("field2").AddItem "janvier" UserForm1.Controls("field2").AddItem "février" UserForm1.Controls("field2").AddItem "mars" UserForm1.Controls("field2").AddItem "avril" UserForm1.Controls("field2").AddItem "mai"     'etc.   UserForm1.Show   End Sub

---

Bonjour,

Comme Patrick, j'ai de la peine à comprendre ce que tu cherches ?
Un ComboBox est constitué d'une ListBox et d'un TextBox avec un bouton pour ouvrir ou fermer la liste mais une ListBox est une ListBox rien de plus et ne possède pas de zone de texte ni de bouton !
Si tu veux la liste et la zone de saisie, utilises un ComboBox et sa propriété "DropDown" pour afficher en permanence cette dernière sous le TextBox

bonjour Theze,
merci de votre message.
à la lecture de ce que j'avais glané ci et là, je pensais qu'il était possible d'avoir une listbox avec une zone de texte (ne permettant que de visualiser la sélection, et non d'y entrer quelque chose), et un bouton, pour ne pas avoir la liste affichée en permanence dans son intégralité.
je vois donc que je m'étais égaré.
actuellement, j'ai remplacé mes listbox par des combobox, avec la propriété .style = 2. Mes combobox se comportent alors comme des listbox telles que je les imaginais.

merci encore de votre temps et de votre indulgence. merci à Patrick et Sogedic.
bien à vous,
Daniel

Hello Daniel !

Aucun problème, on est tous là pour apprendre, moi le premier donc ne t'excuses pas de t'être trompé ;)