Comment récupérer plusieurs choix d'une listbox dans une table excel?

Bonjour,
J'ai une listbox couplé à une table excel qui permet la selection multiple. J'aimerais limité le nombre de choix à 3 et pouvoir récupérer chaque choix dans 3 cellules excel différentes. Pouvez m'éclairer sur le sujet?
Merci d'avance!

Pour limiter le choix à 3 sélection, il te faut passer en revue la liste des éléments à chaque fois que l'utilisateur clique dans la listbox:

-Private Sub MaListBox_Click()
- Dim i as integer
- Dim iSélectionné as integer
- For i = 0 to MaListBox.ListCount-1
- If MaListBox.Selected(i) Then
- iSélectionné = iSélectionné + 1
- If iSélectionné = 3 Then
- MsgBox "Vous ne pouvez sélectionner que 3 éléments."
- End if
- End if
- Next
-End Sub

Pour récupérer ces choix, utilise le code suivant à mettre au bouton "Valider":

-Private Sub Valider_Click()
- Dim i as integer
-
- Dim iLigne as integer
- For i = 0 to MaListBox.ListCount-1
- If MaListBox.Selected(i) Then
- iLigne = iLigne + 1
- ActiveSheet.Range("A" & iLigne).Formula = MaListBox.List(i)
- End if
- Next
-End Sub

Voilà qui devrait théoriquement te dépanner...

Programmix


-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
> J'ai une listbox couplé à une table excel qui permet la selection multiple. J'aimerais limité le nombre de choix à 3 et pouvoir récupérer chaque choix dans 3 cellules excel différentes. Pouvez m'éclairer sur le sujet?
> Merci d'avance!

Slt,

Dans une listbox de plusieurs milliers d'enregistrements acceptant le multiselect, comment ne récupérer que les fichiers sélectionnés?
En évitant la boucle de parcourir la liste avec
If MaListBox.Selected(i)
car trop long ...
qqun a t il une idée?

Merci
KIM