Discussion :

[marinef]

Bonjour,

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

Code :

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

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?

[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

[marinef]

je ny comprends rien...

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

[marinef]

Code :

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

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)

???