Permettre un choix multiple dans un ComboBox

Version imprimable

19/06/2008, 11h48
Alfred23

Permettre un choix multiple dans un ComboBox

Bonjour à tous !

J'ai fait un formulaire avec un COmboBox. J'ai "rempli" le Combobox... Jusque là... Tout va bien !:)

Mais, là où ça coince, c'est que j'aimerai que l'utilisateur du formulaire puisse sélectionner plusieurs items dans la liste déroulante... Et, rien à faire : je n'y arrive pas ! :(

Est-ce que l'un(e) d'entre vous pourrait m'aider ?

Un grand merci par avance !

Alfred
19/06/2008, 12h24
Alfred23

Euh... J'ai oublié de préciser qu'il s'agissait de VBA sous excel...

Désolée !
19/06/2008, 12h56
fring

Bonjour,

La ComboBox ne possède pas la propriété MultiSelect, la ListBox bien ;)
19/06/2008, 12h59
Invité

Bonjour

Une solution un peu tordu que j'ai testé sous Access, mais devrait fonctionner dans un UserForm Excel : http://starec.developpez.com/tuto/listesowc/, il faut grouper les deux parties de l'article.

Starec
19/06/2008, 14h15
Alfred23

Merci pour vos réponses !

Je viens de tester la listbox : ce n'est pas tout à fait ce que je voulais, mais c'est bien aussi !!
Par contre je n'arrive pas à récupérer la valeur de ce qui a été choisi...
J'ai essayé :
ListBox1.Text
ListBox1.Value
ListBox1.List
ListBox1.ListIndex
ListBox1.ListCount
....

Vous savez comment il faut faire ?

Merci d'avance
Alfred

On ignore sous quelle forme tu souhaites récupérer les sélections mais pour le principe

Code:

1
2
3
4
5
    for i = 0 to listbox1.listcount -1
        if listBox1.Selected(i) = True Then
            listBox2.AddItem listBox1.list(i)
        end if
    Next i

19/06/2008, 14h34
Alfred23

En fait, quand on valide les données entrées dans le formulaire, un MsgBox s'ouvre. Ce MsgBox récapitule les données entrées dans le formulaire. J'arrive à récupérer toutes les données, mais pas celle de la ListBox.
19/06/2008, 14h39
fring

En complément de la piste que Ousk t'a donnée, en parcourant le lien ci-dessous, la listbox n'aura (presque) plus de secret pour toi ;)

[EDIT] arf...qui m'a piqué mon lien ? ouskil est ? J'étais pourtant persuadé de l'avoir mis :oops:
http://silkyroad.developpez.com/VBA/ControlesUserForm/
.

Code:

1
2
3
4
5
6
    for i = 0 to listbox1.listcount -1
        if listBox1.Selected(i) = True Then
            msg = msg & listBox1.list(i) & vbcr
        end if
    Next i
    Msgbox msg

Et comme ça, ça te va ?

19/06/2008, 15h09
Alfred23

Merci beaucoup ! J'y suis presque, grâce à vous !
J'ai adapté ton code à ce que je veux faire, et effectivement, j'arrive maintenant à récupérer le contenu de la listbox, mais je ne récupère qu'une seule donnée... :( Si je sélectionne plusieurs items dans la listbox, je ne récupère que le dernier sélectionné...
19/06/2008, 15h34
zazaraignée

donne nous le code que tu as fait qu'on voies où ça coince exactement. Autrement, il me semble que le code de Ouskel'n'or (salut vieux ! ;) ) est tout à fait correct. La variable msg contient tes items...

Ceci dit si tu veux les récupérer pour les mettre dans des cellules quelque part, il te faudra les ajouter aussi dans un objet Range.
19/06/2008, 15h47
Alfred23

Ça marche !!

Merci beaucoup beaucoup ! Vous m'avez enlevé une épine du pied !!