trier listbox par alphabetique.

**Pompaero** · 10/10/2012, 23h43

Bonjour a tous.

Je souhaiterai, si cela est possible trier une ListBox multicolonne afin de faciliter la recherche.

J'ai deja un code qui charge la listbox avec 5 colonnes (A,B,C,D,E), donc je voudrais compléter ce code pour trier par alphabétique sur la colonne D tout en gardant les infos des autres cellules de la meme ligne.
Ps: sois un tri sur listbox ou directement sur la BDD (faire au plus simple par rapport a mon code).

Mon code

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 WsS As Worksheet
Dim R As Long, DerLigS As Long
Dim NumId As String
 
Set WsS = Sheets("Tablo")
DerLigS = WsS.Cells(WsS.Columns(1).Cells.Count, 1).End(xlUp).Row 
 
   For R = 3 To DerLigS                   
       NumId = WsS.Cells(R, 1)            
       Me.ListBxPerso.AddItem NumId  
   Next R
 
  With ListBxPerso
    ListBxPerso.RowSource = ("Tablo!ListRech") 
    Me.ListBxPerso.ColumnCount = 5
    Me.ListBxPerso.ColumnWidths = "0;0;100;80;80"
  End With
End Sub