Bonjour !
J'ai le code ci-dessous, Il s'agit d'une liste qui affiche les fichiers.pdf présent dans un dossier:

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
24
25
For j = 1 To ActiveSheet.Range("K65000").End(xlUp).Row
    If Cells(j, 11) <> "" Then     'Si colonne K est rempli
    Dim tabl() 'Créer une liste déroulante
       Dim t As Byte
 
        t = 1
        ReDim tabl(t)
        repertoire = ThisWorkbook.Path & "\" & ActiveSheet.Name & "\" & Range("K" & j).Value 'entrez le nom du repertoire ou trouver les fichiers
       nf = Dir(repertoire & "\*.pdf*")
 
        Do While nf <> ""
            tabl(t) = nf
            t = t + 1
            ReDim Preserve tabl(t)
            nf = Dir ' suivant
       Loop
 
        With Sheets(ActiveSheet.Name).Cells(j, 23).Validation 'Entrez le numero de la feuille ainsi que la cellule correspondante
        .Delete
         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(tabl, ",")
        End With
    End If
 
    Next j
    End Sub


Est-il possible d'afficher les valeur de la liste dans l'ordre inverse ? J'ai vu sur internet des .Reverse mais pas moyen que cela fonctionne j'ai des erreurs à chaque fois.
Merci