Code VBA pour trier sur combobox

[duplaly]

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

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

 

[tototiti2008]

Re : Code VBA pour trier sur combobox

Bonjour duplaly, Bonjour Carcha²,

N'apporte rien au fil, juste pour passer un petit bonjour à notre ami le squale 🙂