Trier par ordre alphabetique les donées d'une listbox

[Nicko]

Bonjour à tous,

voila, j'ai une listbox sur ma feuil1 dont les données sont mise à jour automatiquement.
Est il possible de trier par ordre alpha ces données ?

Voici le code utilisé our l'instant :

Sub ListModif()
Dim Dif As String
Dim Prise As String
Dim cel As Variant
Dim dercel As String
dercel = Range("A65536").End(xlUp).Row
'vide listbox
Feuil1.Lb1.Clear
Range("A2:A" & dercel).Select
For Each cel In Selection
If cel.Interior.ColorIndex = 6 Then
'dificulté
If Cells(cel.Row, 6).Font.ColorIndex = 6 Then Dif = "Jaune"
If Cells(cel.Row, 6).Font.ColorIndex = 4 Then Dif = "Vert"
If Cells(cel.Row, 6).Font.ColorIndex = 5 Then Dif = "Bleu"
If Cells(cel.Row, 6).Font.ColorIndex = 3 Then Dif = "Rouge"
If Cells(cel.Row, 6).Font.ColorIndex = 1 Then Dif = "Noir"
If Cells(cel.Row, 6).Font.ColorIndex = 2 Then Dif = "Blanc"
'couleur de prises
If Cells(cel.Row, 7).Font.ColorIndex = 6 Then Prise = "Jaunes"
If Cells(cel.Row, 7).Font.ColorIndex = 4 Then Prise = "Vertes"
If Cells(cel.Row, 7).Font.ColorIndex = 5 Then Prise = "Bleues"
If Cells(cel.Row, 7).Font.ColorIndex = 7 Then Prise = "Roses"
If Cells(cel.Row, 7).Font.ColorIndex = 3 Then Prise = "Rouges"
If Cells(cel.Row, 7).Font.ColorIndex = 48 Then Prise = "Grises"

'remplie la listbox
Feuil1.Lb1.AddItem "Secteur " & Range("E" & cel.Row).Value & " - Bloc " & Dif & _
" - Prises " & Prise

End If
Next cel

End Sub

Voila !

 

[flo2002]

Re : Trier par ordre alphabetique les donées d'une listbox

bonjour,
tu ajoutes vers la fin de macro quelque chose comme ca:
worksheets("Feuil1").Select
Range("a:a").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

bon courage

 

[Nicko]

Re : Trier par ordre alphabetique les donées d'une listbox

Bonjour Flo2002,

Le truc, c'est que je ne veux pas trier les données dans la feuille, juste dans la listbox !

Possible ?

 

[flo2002]

Re : Trier par ordre alphabetique les donées d'une listbox

Alors la personellement je ne vois pas comment cela est possible.
peut etre existe t il une fonction de trie interne à la listbox mais je ne la connais pas.
Bon courage
Sinon pourquoi tu veux pas trier?

 

[Hervé]

Re : Trier par ordre alphabetique les donées d'une listbox

bonjour

ce type de code trie une listbox par ordre alphabétique :

Dim i As Integer, j As Integer

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

salut

 

[Nicko]

Re : Trier par ordre alphabetique les donées d'une listbox

Un grand merci à toi Hervé et aussi Flo !

Ca marche à merveille !