Private Sub CommandButton10_Click() 'Premier
With Me.ComboBox1
.ListIndex = 0
End With
End Sub
Private Sub CommandButton13_Click() 'Dernier
With Me.ComboBox1
.ListIndex = .ListCount - 1
End With
End Sub
Private Sub CommandButton12_Click() 'Suivant
With Me.ComboBox1
.ListIndex = IIf(.ListIndex < .ListCount - 1, .ListIndex + 1, .ListCount - 1)
End With
End Sub
Private Sub CommandButton11_Click() 'Précédent
With Me.ComboBox1
.ListIndex = IIf(.ListIndex > 0, .ListIndex - 1, 0)
End With
End Sub