Discussion :

[Marc31]

Bonjour,

J'aimerais savoir si c'est possible d'avoir une liste deroulante avec des valeurs triée de façon croissante?

Je récupère mes données avec une combobox :

Code :

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

 ComboBox1.AddItem Sheets("Feuil2").Cells(i, 10)

Bonne soirée

[Theze]

Bonsoir,

Adapte et teste si ça convient :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub UserForm_Initialize()
 
    Dim Tbl
 
    Tbl = Worksheets("Feuil2").Range("J1:J100") 'adapter la plage
 
    Tri Tbl
 
    Me.ComboBox1.List = Tbl
 
End Sub
 
 
 
Sub Tri(Tbl)
 
    Dim Tempo
    Dim I As Integer
    Dim J As Integer
 
        'tri décroissant "<"
        'tri croissant ">"
    For I = 1 To UBound(Tbl) - 1
 
        For J = I + 1 To UBound(Tbl)
 
            If Tbl(I, 1) > Tbl(J, 1) Then
 
                Tempo = Tbl(J, 1): Tbl(J, 1) = Tbl(I, 1): Tbl(I, 1) = Tempo
 
            End If
 
    Next J, I
 
End Sub

[Marc31]

Bonjour et merci pour le code mais en fait je me suis trompé c'est par ordre alphabetique.....

Personne n'a de solution......?

[SfJ5Rpw8]

Bonjour ... et donc ?? et le code proposé ne te conviens pas ? qu'est ce qui te gêne dans l'ordre obtenu ?

[Marc31]

En fait le tri est croissant sur des chiffres alors que moi je veux faire un tri sur du texte....dans un ordre alphabétique...

[SfJ5Rpw8]

tu as testé le code ? montre moi des "valeurs" qui ne sont pas dans l'ordre que tu souhaite..