Bonsoir,

Voilà je pense que cela devrait faire ton affaire bien sûr en l'adaptant à tes besoins.
Bonne continuation et peut être à plus



Private Sub CmdPrecedent_Click()
Dim i As Integer
i = List1.ListIndex
If i > 0 Then
i = i - 1
List1.ListIndex = i
Label1 = List1.List(i)
End If
End Sub

Private Sub CmdSuivant_Click()
Dim i As Integer
i = List1.ListIndex
If i < List1.ListCount - 1 Then
i = i + 1
List1.ListIndex = i
Label1 = List1.List(i)
End If
End Sub