Discussion :

[bavmorda1]

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?

[ucfoutu]

Bonjour,

Critiquer ?
Non ...

Te demander de faire par contre ce petit test :

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
Private Sub Command1_Click()
 Randomize
 For i = 1 To 10
   CCB3.AddItem Int((50 * Rnd) + 1)
 Next
 Trier
End Sub
 
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

Vu le problème ?

Solution :
A la place d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If CCB3.List(x) < CCB3.List(y) Then

écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Val(CCB3.List(x)) < Val(CCB3.List(y)) Then

[bavmorda1]

OK, j'ai compris le problème.
Pour mon bout de prog je n'avais pas de probleme car j'oblige l'utilisateur à rentrer un nombre à cinq chiffres.
Mais je rajoute quand même ta ligne car ça peut toujours servir et je n'aurais pas besoin de revenir sur le forum.