Bonjour,
Plusieurs fois je suis venu regarder dans le forum pour trouver un bout de VB qui m'aurait permis de faire un trie numérique dans une combobox déja remplie.
Mais je commence dans le VB et je comprenais pas tout donc j'ai bossé de mon côté et j'ai pondu ça, je laisse donc la place aux experts pour critiquer un peu (j'ai dit un peu...).

j'ai une combobox (ccb3) avec des numéro d'affaires dedans.
j'ai rempli la combo (grace au forum) en ne prenant ni les doublons ni les cellules vides. Mais j'avais les numéros dans l'ordre de recherche dans la colonne.
J'espère que c'est clair
Une fois ma combo remplie je lance le prog trier:

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
Private Sub Trier()
test = CCB3.ListCount - 1
Dim x As Long
 
For x = 0 To test
    For y = 0 To test
 
    If CCB3.List(x) < CCB3.List(y) Then
    temp = CCB3.List(y)
    CCB3.List(y) = CCB3.List(x)
    CCB3.List(x) = temp
    End If
    Next y
    Next x
 
End Sub
Alors?
Vos impressions?