Bonjour à tous,

Aujourd'hui j'ai un problème lors de la création d'un nouveau formulaire :
En faites sur ma liste à choix multiple, j'aimerais recopier les valeurs sélectionnées (au nombre de 5) dans mes différents label (également au nombre de 5).

J'ai bien essayé plusieurs méthode telle que celle-ci dessous, mais les résultats sont inexistant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
28
29
30
Private Sub CommandButton1_Click()
Dim i As Integer
Dim a, b, c, d, e As String
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True And a = "" Then
    a = ListBox1.Selected(i)
    Else
    If ListBox1.Selected(i) = True And a <> "" Then
    b = ListBox1.Selected(i)
    Else
    If ListBox1.Selected(i) = True And b <> "" Then
    c = ListBox1.Selected(i)
    Else
    If ListBox1.Selected(i) = True And c <> "" Then
    d = ListBox1.Selected(i)
    Else
    If ListBox1.Selected(i) = True And b <> "" Then
    e = ListBox1.Selected(i)
    End If
    End If
    End If
    End If
    End If
Next
    Label1.Caption = a
    Label2.Caption = b
    Label3.Caption = c
    Label4.Caption = d
    Label5.Caption = e
End Sub
Je tient a préciser que toutes les valeurs de la liste sont des chaines de caractère.
Je vous remercie par avance pour votre aide.