Récupérer les éléments sélectionnées d'une ListBox à l'aide de la collection "SelectedObjectCollection"

Bonjour à tous,

J'ai une ListBox à choix multiple qui contient les 4 Valeurs : "France", "USA", "Angletterre" et "Italie".

J'aimerai pouvoir effectuer un test dans une macro du type :
SI France est selectionnée alors Action 1
Si USA est selectionnée alors Action 2
...

Pour cela j'ai utilisé la collections SelectedObjectCollection, et la méthode contains :

Code:

---

1 2 3 4 5 6

Dim AreaSelected As SelectedObjectCollection AreaSelected = AreaList.SelectedItems returnValue = AreaSelected.Contains("USA") If returnValue Then Action 1 End if

---

Le problème c'est dès la définition de la collection AreaSelected, j'ai un message d'erreur du type "User defined type non defined".

Quelqu'un aurait-il une idée du problème ?

Dans la listbox "ListBox1" du userform "UserForm1" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

With UserForm1.ListBox1 If .Selected(0) Then 'France action1 End If If .Selected(1) Then 'USA action2 End If If .Selected(2) Then 'Angleterre action3 End If If .Selected(3) Then 'Italie action4 End If End With

---

Citation:

---

J'ai une ListBox à choix multiple qui contient les 4 Valeurs : "France", "USA", "Angletterre" et "Italie".

---

Donc ici

si UserForm1.ListBox1.List(0) = "France"
UserForm1.ListBox1.Selected(0) sera à vrai si "France" est selectionné


ou version 2 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

With UserForm1.ListBox1 For i = 0 To .ListCount If .Selected(i) Then Select Case .List(i) Case "France" Action1 Case "Italie" Action2 Case "Angleterre" Action3 Case "USA" Action4 Case Else Action5 End Select End If Next i End With

---

----
Ce soir je suis en vacances :lahola: