Trie éléments ListBox

[Pierre31]

Bonjour à tous,
Je cherche un code vba me permettant de trier en ordre croissant le contenu d'une ListBox et d'afficher à nouveau dans la ListBox la liste Triée.
Je n'arrive pas à adapter les exemples trouvés.
D'avance merci pour votre coopération
Cordialement
Pierre

 

[Hervé]

bonjour pierre

2 méthodes pour le prix d'une :

par une boucle :

Dim i As Byte, j As Byte
Dim temp


With ListBox1
        For i = 0 To .ListCount - 1
                For j = 0 To .ListCount - 1
                        If .List(i) < .List(j) Then
                                temp = .List(i)
                                .List(i) = .List(j)
                                .List(j) = temp
                        End If
                Next j
        Next i
End With

par une feuille en utilisant le trie d'excel :

Dim feuille As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set feuille = Sheets.Add
With feuille
        .Range('a1').Resize(ListBox1.ListCount) = ListBox1.List
        .Columns(1).Sort Key1:=Range('A1'), Order1:=xlAscending
        ListBox1.Clear
        ListBox1.List = .Range('a1:a' & Range('a65536').End(xlUp).Row).Value
        .Delete
End With

Application.ScreenUpdating = True
Application.DisplayAlerts = True

salut

 

[Pierre31]

Bonjour Hervé,

Merci pour tes solutions.
dans l'immédiat je suis dans le cas correspondant à ta première solution.
Bonne journée
Cordialement
Pierre

 

[Blunet]

Salut Pierre, Hervé, le problème a été résolu sauf que je m'attarde un tout petit peu sur le tri de hervé. J'effectuais le trie de la même façon mais cette méthode a ix1=i itération en plus que la méthode que je propose ci dessous.
Les deux méthodes donnent un résultat identique et juste.

Hervé écrit:

Dim i As Byte, j As Byte
Dim temp


With ListBox1
For i = 0 To .ListCount - 1
For j = i+1 To .ListCount - 1
If .List(i) < .List(j) Then
temp = .List(i)
.List(i) = .List(j)
.List(j) = temp
End If
Next j
Next i
End With

 

[Jules]

Tri éléments ListBox

Bonsoir à tous,
Une petite question - sans doute toute simple pour vous mais compliqué pour un débutant tel que moi :

où coller ce bout de code trouvé sur le Forum (et proposé par HERVE) qui permet de trier alphabétiquement une listbox ou une combobox ?

D'avance un grand merci.

Dim i As Byte, j As Byte
Dim temp

With ListBox1
* * * * For i = 0 To .ListCount - 1
* * * * * * * * For j = 0 To .ListCount - 1
* * * * * * * * * * * * If .List(i) < .List(j) Then
* * * * * * * * * * * * * * * * temp = .List(i)
* * * * * * * * * * * * * * * * .List(i) = .List(j)
* * * * * * * * * * * * * * * * .List(j) = temp
* * * * * * * * * * * * End If
* * * * * * * * Next j
* * * * Next i
End With

 

[ChTi160]

Re : Trie éléments ListBox

Salut Jules
bonjour le fil
Bonjour le Forum

Une occasion pour moi ,de Saluer mon Ami Hervé (qui n'a pas encore vu cette question mais cela ne saurait tarder)je me permet donc de mettre cette exemple ( qui reprends les deux méthodes de Hervé ) à l'ouverture dans Userform1.activate la première et le bouton Tri descendant pour la deuxième
Le Fichier :

Regarde la pièce jointe Classeur1.xls

Bonne journée

 

[Jules]

Re : Trie éléments ListBox

Un grand merci Jean-Marie (et un grand Merci à Hervé pour le code).
Très bonne journée.