ListBox MultiChoix: Recuperation des Valeurs

Version imprimable

Bonjour,

J'ai une question assez simple à propos des ListBox MultiChoix.

J'ai une ListBox alimenté d'une BD, et avec la possibilité de faire un choix multiple activé :

Code:

ListBox.MultiSelect = fmMultiSelectMulti

.

Je voudrais savoir comment je pourrais recuperer les valeurs selectionné de cette ListBox.
Par exemple, disons qu'on a ça :
Code:

1 2 3 4 5 6 ListBox.AddItem "A1" ListBox.AddItem "B2" ListBox.AddItem "C3" ListBox.AddItem "D4" ListBox.AddItem "E5"
Je souhaiterais, si par exemple je choisi A1, C3 et D4; je puisse recuperer ces valeurs par la suite et les mettre dans des valeurs declarées.
Comme :
Code:

1 2 3 4 5 6 7 8 dim val1 as String dim val2 as String dim val3 as String dim val4 as String dim val5 as String val1=ListBox.Value '(alors qu'il y a une valeur selectionnée). val2=ListBox.Value '(alors qu'il y a une valeur selectionnée). val3=ListBox.Value '(alors qu'il y a une valeur selectionnée).
La syntaxe est pourri, mais la logique est la ^^"
J'ai une certaine idée que je dois m'y faire avec l'index de la valeur (ListBox.Selected(pvarindex)), mais je voudrais avoir vos avis si vous avez des propositions !

Ceci pour but de pouvoir faire une requete multichoix dynamique. Si l'utilisateur choisi par exemple A1 et E5, la requete sql qui s'en suit executera :

Code:

SELECT * FROM table WHERE condition Like 'A1' OR condition Like 'E5';

Si jamais l'utilisateur choisi que A1, la requete sera la suivante :

Code:

SELECT * FROM table WHERE condition Like 'A1';

Bonne journée en cet affreux historique <Lundi Matin> ... :cry:

Bonjour,

Une démarche du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
'### Dans le module de code du UserForm ###
Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  'ou un autre évènement
Dim i As Long
Dim cpt As Long 'compteur
For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) Then
    cpt = cpt + 1
    ReDim Preserve TableauListBox(1 To cpt)
    TableauListBox(cpt) = ListBox1.List(i, 0)
  End If
Next i
Call MonTraitement
End Sub

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
'### Dans un module standard ###
Public TableauListBox()
 
Sub MonTraitement()
Dim i As Long
'---
On Error Resume Next
i = UBound(TableauListBox)
If Err = 0 Then
  For i = 1 To UBound(TableauListBox)
    MsgBox TableauListBox(i)    'pour visualiser (à virer)
 
    '--- votre traitement ---
    'SELECT * FROM table WHERE condition Like 'A1';
    '------------------------
 
  Next i
  Erase TableauListBox
End If
Err.Clear
On Error GoTo 0
 
'--- suite traitement ---
'''''
'''''
 
End Sub

heu

Bonjour le mieux c'est d'utiliser le mode extended de la listebox
et son evenement mouseup

essaie cet exemple
un exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then Liste = Liste & vbCrLf & ListBox1.List(i)
Next
MsgBox Liste
End Sub
'on remplie la listbox 
Private Sub UserForm_Activate()
ListBox1.MultiSelect = fmMultiSelectExtended
For i = 1 To 20
ListBox1.AddItem "item" & i
Next
End Sub

au plaisir