Bonjour a toutes et tous, Forum bonjour

J'ai un USF1 avec une ListBox1 et un Label1

Une liste de nom sur ma Feuil1 baptiser (Compte) en colonne (T)

ListBox1 mis propriété sur Muliselect=1

Ma liste s'affiche bien dans le ListBox1 et je peux cocher plusieurs cases.

Je souhaiterai svp afficher (Le où les noms) sélectionnés dans le Label1

Malgré de multiples essais, je ni parviens pas.

Merci et bon début de semaine a tous

Cordialement Ray

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
 
Option Explicit
 
Private Sub UserForm_Initialize()
Dim I As Integer
  ListBox1.Clear
 
For I = 1 To Sheets("Compte").[T50].End(xlUp).Row
 
    If ListBox1.ListIndex = -1 Then
       ListBox1.AddItem Sheets("Compte").Cells(I, "T")
    End If
 
Next I
       ListBox1.List() = Range("T1:T50").Value
End Sub
 
'*****
Private Sub ListBox1_Click()
Dim compt As Integer
 
  For compt = 0 To (ListBox1.ListCount - 1)
 
      If ListBox1.Selected(compt) = True Then
         Label1.Caption = ListBox1.List(compt)
      End If
 
  Next compt
End Sub