Bonjour, pour trier une liste d'une combobox ou il y a par exemple: a1 a12 b2 b13 c2 c15

le problème c'est que ca trie bien sur les lettres mais pas sur les chiffres? ca trie ainsi: a12 a1 b13 b2 c15 c2

j'utilise cette fonction:
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
Function tri()
        Dim SLigne1 As String
        Dim SLigne2 As String
        Dim IndiceBoucle As Integer
        Dim TemoinPermutation As Boolean = True  ' Vaut False quand il n'y a plus de permutation
        Dim Temporaire As String
 
        While TemoinPermutation
            TemoinPermutation = False
            For IndiceBoucle = 0 To ComboBox1.Items.Count - 2
                SLigne1 = ComboBox1.Items(IndiceBoucle)
                SLigne2 = ComboBox1.Items(IndiceBoucle + 1)
                If SLigne1 > SLigne2 Then
                    TemoinPermutation = True
                    Temporaire = ComboBox1.Items(IndiceBoucle)
                    ComboBox1.Items(IndiceBoucle) = ComboBox1.Items(IndiceBoucle + 1)
                    ComboBox1.Items(IndiceBoucle + 1) = Temporaire
                End If
            Next
        End While
    End Function