Choix additif dans combobox

Salut le forum

J'ai un code qui me permet d'afficher les éléments de mon combobox.

Private sub userform_initialize ()
combobox3.list = sheets ("PARAMETRE").range("D5:D22").value
combobox5.list = sheets ("PARAMETRE").range("C5:C22").value
end sub

Actuellemnt je ne peux que faire un seul choix.

Je souhaite avoir la possibilité de faire des choix additifs.

Ex: si mon client a 2 loisirs sinon plus, qu'en choisissant le 1er loisir, 2è loisir...que dans mon combobox j'ai une resultat de ce genre :ex SPORT, CINEMA.

Merci à tous

Salut le forum

Une ComboBoxo n'accepte pas la sélection multiple alors qu'une ListBox le permet

avec la propriété MultiSelect à 1 - fmMultiSelectMulti

Mytå

Salut Myta

merci pour votre feedback.

Puis-je connaitre la difference entre une listbox et combobox?

Avec mon fichier joint peut-tu réaliser cela pour moi avec si possible des explications à l'appui afin que je puisse comprendre et m'en servir si besoin est?

Merci pour tout

Re le forum

ListBox (Zone de Liste)

1. Occupe plus d'espace, mais montre plus d'une valeur.
2. On peut sélectionner plusieurs éléments.
3. On peut utiliser les cases à cocher dans la boîte de liste.

ComboBox (Zone de Liste modifiable)

1. Occupe moins d'espace, mais présente une seule valeur pour une meilleure visibilité.
2. Sélection multiple n'est pas possible.
3. On ne peut pas utiliser les cases à cocher dans les listes déroulantes,

Pour récupérer les Items sélectionnés

Private Sub CommandButton1_Click()
   For i = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(i) = True Then
        Msgbox  Me.ListBox1.List(i)
     End If
  Next i
End Sub

Mytå

Salut Myta

Merci pour les explications et le code.

Comment utiliser le code.

Je n'ai jamais utilisé une listbox.

Je pense qu'un exemple concret pourra mieux m'éclairer.

Dans mon fichier precedent, serait-il possible pour vous de me faire voir comment fonctionne une listebox?

Merci