Microsoft 365 Tri dans une Listbox

rubis54

XLDnaute Occasionnel
Bonjour tout le monde,

j'ai 3 classeurs et dans chacun il y a un usf "recherche archives" . Mais j'ai un soucis avec un seul car lorsque je l'ouvre et que je choisis le dossier d'archives à consulter, il affiche tout mais pas dans l'ordre des dates.

Les deux autres usf fonctionnent très bien, alors que c'est le même code ! Voici le code :
Private Sub CbxArchive_Change()
Me.ListBox1.Clear
Me.répertoire = ""
If Me.répertoire = "" Then Me.répertoire = ThisWorkbook.Path & "\" & Me.CbxArchive.Value
Dim Tbl(), nf, n
nf = Dir(Me.répertoire & "\*.*")
n = 0
Do While nf <> ""
n = n + 1
ReDim Preserve Tbl(1 To 2, 1 To n)
Tbl(1, n) = nf
Tbl(2, n) = Format(FileDateTime(Me.répertoire & "\" & nf), "dd/mm/yyyy hh:mm")
nf = Dir
Loop
If n > 0 Then
If n > 1 Then
Me.ListBox1.List = Application.Transpose(Tbl)
Else
Dim aa(1 To 1, 1 To 2)
aa(1, 1) = Tbl(1, 1): aa(1, 2) = Tbl(2, 1)
Me.ListBox1.List = aa
End If
End If
Me.TextBox1 = Me.ListBox1.ListCount & IIf(Me.ListBox1.ListCount > 1, " Archives", " Archive")
If n = 0 Then
Exit Sub
End If

Auriez-vous une idée pour ce problème .

Merci d'avance.
Cdt Rubis
 

Discussions similaires

  • Question
Microsoft 365 ListBox TextBox
Réponses
2
Affichages
713

Statistiques des forums

Discussions
294 444
Messages
1 938 543
Membres
188 916
dernier inscrit
mhedi69