Bonjour
Voici mon code qui marche bien, cependant j'aimerais trier les listes dans mes combobox.
Merci pour toute aide.

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
Private Sub UserForm_Initialize() 'à l'intilisation de l'UserForm
 
Dim Collec As Collection 'déclare la variable Collec
 Dim cel As Range 'déclare la variable cel
 Dim x As Integer 'déclare la variable x
 Dim y As Integer 'déclare la variable y
 
Set Collec = New Collection 'définit la variable Collec
 
 
For Each cel In Sheets("Empl").Range("B8:B" & Sheets("Empl").Range("A65536").End(xlUp).Row)
 On Error Resume Next 'passe à la ligne suivante si erreur
 Collec.Add cel.Value, CStr(cel.Value)
 Next cel
 
For x = 1 To Collec.Count
 ComboBox1.AddItem Collec(x)
 Next x
 
For Each cel In Sheets("Empl").Range("C8:C" & Sheets("Empl").Range("A65536").End(xlUp).Row)
 On Error Resume Next 'passe à la ligne suivante si erreur
 Collec.Add cel.Value, CStr(cel.Value)
 Next cel
 
For y = 1 To Collec.Count
 ComboBox2.AddItem Collec(y)
 Next y
 
DTPicker1.Value = Now
 DTPicker2.Value = Now
 End Sub