T
Thomas®
Guest
Bonjour le forum,
j'ai un liste box que je remplis grace à additem
Je cherche un moyen 'inverser la liste .
exemple :
ce qui est en A1 à E1 (soit à la fin du listbox)
et ce qui est en derniere ligne de A à E soit en haut du listbox.
Je vais poser une question vraiment bête mais est ce possible de faire un boucle à l'envert ?
exemple :
For Each cel In Range ('A' & derlgn & ':A1')
D'avance merci
Thomas®
j'ai un liste box que je remplis grace à additem
Code:
derlgn = Sheets('HISTO').Range('A65536').End(xlUp).Row
lgn = 0
With Me.ListBox1
.ColumnCount = 5
.ColumnWidths = '150;120;110;0;0'
For Each cel In Range('A2:A' & derlgn)
R = cel.Row
If Rows(R).Hidden = False Then
.AddItem Cells(R, 1).Value
For Col = 1 To 5
.Column(Col, .ListCount - 1) = Cells(R, Col + 1).Value
Next
End If
Next
End With
Je cherche un moyen 'inverser la liste .
exemple :
ce qui est en A1 à E1 (soit à la fin du listbox)
et ce qui est en derniere ligne de A à E soit en haut du listbox.
Je vais poser une question vraiment bête mais est ce possible de faire un boucle à l'envert ?
exemple :
For Each cel In Range ('A' & derlgn & ':A1')
D'avance merci
Thomas®