Bonjour,
je voudrais trier par ordre alphabétique ma combobox. voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub UserForm_Initialize() For i = 3 To Sheets("CD").Cells(3, 2).End(xlDown).Row Me.ComboBox2 = Sheets("CD").Cells(i, 2) If Me.ComboBox2.ListIndex = -1 Then Me.ComboBox2.AddItem Sheets("CD").Cells(i, 2) End If Next i End sub
Merci pour votre réponse
Partager