Bonjour;
comme cité ci-dessus par
xmox667,
Private Sub Command1_Click()
Dim mvcount& 'variable pour le nombre total d'elements
'on affiche le dernier element
mvcount& = List1.ListCount - 1
List1.Selected(mvcount&) = True
'pour afficher les 5 derniers elements
mvcount& = List1.ListCount - 6 ' 6 étant les 5 elements moins l'indexation 0 donc 6 car les items se déterminent de 0 à xx elements.
List1.Selected(mvcount&) = True
End Sub
Bon courage
Philippe.