Discussion :

[rossemma]

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 :

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

[rossemma]

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 :

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

[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

[rossemma]

Merci

Je vais chercher et tenter avec vos explications.

Je reviens ensuite.