Discussion :

[lavineur]

Bonjour,

Mon problème est simple,
je suis déjà parvenu à alimenter une listBox avec les données d'une feuille grace au code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Activate()
    Sheets("Log").Select
    ListBox1.List = Range("A2:M" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End Sub

J'aimerai pouvoir afficher les lignes affichées dans l'ordre décroissant,
tout en sachant que la colonne A contient des n° de mouvement dans un ordre croissant (A2=1;A3=2;A4=3;A5=4; etc...)

Comment afficher simplement la liste obtenue à partir du dernier enregistrement?

Merci d'avance pour vos réponses...

[mercatog]

Le plus simple est de trier la plage en ordre croissant sur la colonne A, remplir la listbox et re-trier la plage en ordre croissant sur la colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
Dim Plage As Range
 
Application.ScreenUpdating = False
With Worksheets("Log")
    Set Plage = .Range("A2:M" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
 
Plage.Sort key1:=Plage(1, 1), order1:=xlDescending, Header:=xlNo
ListBox1.List = Plage.Value
Plage.Sort key1:=Plage(1, 1), order1:=xlAscending, Header:=xlNo
 
Set Plage = Nothing
End Sub

[lavineur]

Super merci Mercatog !
C'est fonctionnel