Private O As Worksheet
Private TV As Variant
Private NF As Byte
Private Sub UserForm_Initialize()
Dim I As Integer
Set O = Worksheets("Feuil1")
TV = O.Range("A1").CurrentRegion
For I = 2 To UBound(TV, 1)
Me.ListBox1.AddItem TV(I, 1)
Next I
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim J As Integer
If NF = 3 Then
MsgBox "Vous ne pouvez sélectionner que trois techniciens !"
Exit Sub
End If
For J = Me.ListBox1.ListCount - 1 To 0 Step -1
If Me.ListBox1.Selected(J) = True Then
Me.Controls("TextBox" & NF + 1).Value = Me.ListBox1.List(J)
Me.ListBox1.RemoveItem (J)
NF = NF + 1
Exit Sub
End If
Next J
End Sub