trier listbox par alphabetique.
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:
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 |
dans le but de finir mon projet, dans l'attente de vous lire.
Merci par avance.
