Classement des données d'une liste modifiable

Version imprimable

07/07/2008, 09h09
marinef

Classement des données d'une liste modifiable
Bonjour,

Alors voilà je crée une zone de liste modifiable par rapport à des données déjà rentré. Voici mon code:
Code:

1 2 ListeBE.AddItem (Sheets("1").Cells(11, i) & "-" & Cells(12, i).Value)
Là ma liste se crée comme les données sont rentrés dans les cellules. Cependant, savez vous comment pourrais je faire pour que cette liste soit classé par ordre croissant?
07/07/2008, 09h59
fring

Bonjour,

Tu peux t'inspirer de ce sujet dans la FAQ

Comment remplir une ComboBox sans doublon et trié par ordre croissant ?

La manipulation est la même pour une ListBox

je ny comprends rien...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If Cells(10, i) = "" Then 'Pour ne mettre ds la liste que les BE non complété par un serial
      Tableau = Sheets("1").Cells(11, i) & "-" & Cells(12, i).Value
 
 
               'Tri le contenu du tableau par ordre croissant.
        For i = 1 To UBound(Tableau)
            For j = 1 To UBound(Tableau)
                If Tableau(i) < Tableau(j) Then
                    TempTab = Tableau(i)
                    Tableau(i) = Tableau(j)
                    Tableau(j) = TempTab
                End If
            Next j
        Next i
 
 
       ListeBE.AddItem (Tableau)

code2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Tableau = Sheets("1").Cells(11, i) & "-" & Cells(12, i).Value
 
 
    'Tri le contenu du tableau par ordre croissant.
          If Sheets("1").Cells(11, i) & "-" & Cells(12, i).Value < Sheets("1").Cells(11, i + 1) & "-" & Cells(12, i + 1).Value Then
        TempTab = Sheets("1").Cells(11, i) & "-" & Cells(12, i).Value
        Sheets("1").Cells(11, i) & "-" & Cells(12, i).Value = (Sheets("1").Cells(11, i + 1) & "-" & Cells(12, i + 1).Value)
        (Sheets("1").Cells(11, i + 1) & "-" & Cells(12, i + 1).Value) = TempTab
        End If
 
 
 
       ListeBE.AddItem (Tableau)

???