Bonjour,

Je permet de vous demander de l'aide, je vous expliques

J'ai récuperer un code vba pour plusieurs selections dans une listbox,

sur le userform j'ai mis une listbox avec un seul choix donc le code fonctionne mais n'ai pas très claire.

Est-ce possible de me dire se que je dois retirer qui est inutile?

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
31
32
33
34
35
36
37
 
Option Explicit
 
Private Sub CommandButton1_Click()
Dim i As Byte
Dim ValeurARetourner As String
 
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ValeurARetourner = ValeurARetourner & ListBox1.List(i) & " & "
        End If
    Next i
 
Range("C2") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
Range("C3").Activate
UserForm1.Hide
Unload UserForm1
End Sub
 
Private Sub ListBox1_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear
 
Derlig = Sheets("Services").Cells(65536, 5).End(xlUp).Row
    For i = 2 To Derlig
        ListBox1.AddItem Sheets("Services").Cells(i, 5).Value
    Next i
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ListBox1.Selected(i) = False
        End If
    Next i
End Sub
Cordialement,

vincent