trier listbox usf

Version imprimable

trier listbox usf

Bonjour,

j'ai une listbox qui reprend les fichiers d'un répertoire et je voudrais les trier par ordre décroissant
mes fichiers sont du genre 00123.CSV, 00124.CSV

J'ai regarder dans les propriétés de listbox mais rien trouvé ou passé à côté.

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub UserForm_Initialize()
 
    Dim Chemin As String, fichiers As String, folder As String
    Dim Wb As Workbook
 
    Chemin = ThisWorkbook.Path & Application.PathSeparator
    folder = "VEK_12xxxx1112xx\"
    fichiers = Dir(Chemin & folder & "*.csv")
 
    'position de USF sur l'écran
    With VisaVekDownload
        .startUpPosition = 3
        .Left = 700
        .Top = 25
    End With
 
    While fichiers <> ""
    ListBox1.AddItem fichiers
    fichiers = Dir()
    Wend
    OteCroix VisaVekDownload
 
End Sub

Merci pour vos lumières

J'ai trouvé, il suffisait d'ajouter un ",0"

Cependant, il trie bien par ordre décroissant mais la barre de défilement sur positionne vers le bas et du coup on ne voit pas le fichier qui est en fait le dernier de la liste. alors comment lui dire que la barre doit être en haut.

j'espère que je me fais bien comprendre

code modifié :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub UserForm_Initialize() Dim Chemin As String, fichiers As String, folder As String Dim Wb As Workbook Chemin = ThisWorkbook.Path & Application.PathSeparator folder = "VEK_12xxxx1112xx\" fichiers = Dir(Chemin & folder & "*.csv") 'position de USF sur l'écran With VisaVekDownload .startUpPosition = 3 .Left = 700 .Top = 25 End With While fichiers <> "" ListBox1.AddItem fichiers, 0 fichiers = Dir() Wend OteCroix VisaVekDownload End Sub

27/02/2017, 12h25
mercatog

Tu rempli un tableau à l'aide de tes fichier (à l'aide de ta boucle Dir)
Tu tri ton tabelau (regarde Quick sort) par exemple
Tu injecte le tableau dans ta Listbox
27/02/2017, 12h27
rossemma

Merci

Je vais chercher et tenter avec vos explications.

Je reviens ensuite.