Private Sub UserForm_Initialize()
Dim Plage As Range
With Worksheets("FSEx 2014")
Set Site1 = .Range("A2")
Set Plage = .Range(Site1, .Range("A65536").End(xlUp))
Set Tableau = Plage.Resize(, 25) '<---------------------- adapter le tableau
End With
ComboBox1.List = Plage.Value
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To Sheets("FSEx 2014").Range("A65536").End(xlUp).Row
ComboBox1 = Sheets("FSEx 2014").Range("A" & i)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("FSEx 2014").Range("A" & i)
Next i
End Sub
Private Sub UserForm_Initialize()
Dim m As Object, t,i as long
Set m = CreateObject("Scripting.Dictionary")
t = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row)
For i = LBound(t, 1) To UBound(t, 1): m(t(i, 1)) = "": Next i
ComboBox1.List = m.keys
End Sub