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..

[Marc31]

Ah mince désolé en fait ça marche......par contre quand j'ouvre la userform avec la liste déroulante, ça mets un moment à ouvrir. C'est peut être à cause des 5000 lignes qu'il doit traité et remettre dans l'ordre?

[Theze]

Bonjour,

C'est peut être à cause des 5000 lignes qu'il doit traité et remettre dans l'ordre

Oui, probablement mais il existe d'autres types de tris plus rapides ou alors, utiliser une feuille cachée, coller les valeurs dans cette feuille, utiliser le tri d'Excel et récupérer une fois trié !

[Marc31]

Et oui mais la liste déroulante et liée à des données....on clique sur un choix dans la liste déroulante par exemple le nom d'une commune et ensuite apparaît les informations sur cette commune du genre le nombre d'habitant.
Donc si on fais sur une autre feuille, comment le nom de la commune et les données liées vont se retrouver?

[Invité]

Bonjour,
juste pour informatisation, un tri se contente d'inverser 2 valeur! Z-A en A-Z! il ne concerne en réalité que 50% des données au grand maximum!

un tri à double boucle considère que le tableau est toujours parfait désordonné même si il est bien trié!

(Nb ligne * Nb Ligne) - Nb ligne ! 90 rotation pour 10 ligne! (990 pur 100 L)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Tri(Tbl)
    Dim Tempo
    Dim I As Integer
    Dim J As Integer
        'tri décroissant "<"
        'tri croissant ">"
        For I = 2 To UBound(Tbl)
            If Tbl(I, 1) > Tbl(I - 1, 1) Then
                Tempo = Tbl(I, 1): Tbl(I, 1) = Tbl(I - 1, 1): Tbl(I - 1, 1) = Tempo
                I = I - 2
                If I < 0 Then I = 1
            End If
    Next
End Sub

[Theze]

Ce n'est pas ce que j'ai voulu dire !
On récupère la plage dans le tableau, on transfère cette plage dans la colonne A d'une feuille (ici, pour le test, feuille "Feuil3") qui peut être cachée on tri ces valeurs qui ont été copiées dans la colonne A puis on récupère les valeurs triées à nouveau dans le tableau et on supprime ces valeurs de la colonne A :

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
 
Private Sub UserForm_Initialize()
 
    Dim Tbl
 
    Tbl = Worksheets("Feuil2").Range("J1:J100") 'adapter la plage
 
    With Worksheets("Feuil3")
 
        .Range("A1:A" & UBound(Tbl)) = Tbl
        .Range("A1:A" & UBound(Tbl)).Sort .Range("A1"), xlAscending
        Tbl = .Range("A1:A" & UBound(Tbl))
        .Range("A:A").Clear
 
    End With
 
    Me.ComboBox1.List = Tbl
 
End Sub

[Marc31]

Alors j'ai testé ton code Theze, ça marche pour la liste deroulante qui est bien triée mais quand on clique sur une valeur, il prend les données d'une autre valeur....

[patricktoulon]

Bonjour
a tu essayé de trier ta sheets avant
en considérant que les ville commence en A1
exemple issu de l'enregistreur de macro en délimitant la plage aux colonne a et b pour les villes et habitants

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
Sub test()
   With ActiveWorkbook.Worksheets("Feuil1")
    Set plage = .Range("A1:B" & .Cells(Rows.Count, 2).End(xlUp))
 
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
 
 
    With .Sort
        .SetRange plage
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
With UserForm1
.Show 0
.ListBox1.List = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Value
End With
End Sub

[Marc31]

En fait j'ai déjà fait un tri sur une autre colonne car j'ai deux listes déroulantes, la premiere les villes et la seconde les maires....

[Theze]

Alors, soit tu fait comme te le conseille Patrick, tu tri ta feuille par rapport aux champs que tu veux (clé1 : Villes, clé2 : Maires, clé3 : etc...) soit , si tu ne veux pas trier la feuille, tu copie ta base dans le tableau, tu utilises la feuille intermédiaire pour le tri sur tes différents champs et tu charges seulement la première dimension dans ta ComboBox en gardant ton tableau actif (déclaré en tête de module) et ensuite, tu récupères les valeurs sur Click du ComboBox depuis le tableau et non depuis la feuille.

[Marc31]

Oui je vais tester ça et merci à tout le monde!