Vba
Fermé
Debutant.VBA
Messages postés
9
Date d'inscription
vendredi 7 avril 2017
Statut
Membre
Dernière intervention
30 avril 2017
-
Modifié le 8 avril 2017 à 08:58
patty5046 Messages postés 43 Date d'inscription lundi 8 février 2016 Statut Membre Dernière intervention 24 mai 2020 - 8 avril 2017 à 17:49
patty5046 Messages postés 43 Date d'inscription lundi 8 février 2016 Statut Membre Dernière intervention 24 mai 2020 - 8 avril 2017 à 17:49
1 réponse
patty5046
Messages postés
43
Date d'inscription
lundi 8 février 2016
Statut
Membre
Dernière intervention
24 mai 2020
5
8 avril 2017 à 17:49
8 avril 2017 à 17:49
Bonjour
Voyez ce code :
Bon courage
Voyez ce code :
Private Sub CommandButton5_Click()
If Me.ComboBox1.ListIndex < Me.ComboBox1.ListCount - 1 Then
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex + 1
Else
MsgBox "Vous êtes au dernier membre enregistré"
End If
End Sub
Private Sub CommandButton6_Click()
If Me.ComboBox1.ListIndex < Me.ComboBox1.ListCount + 1 Then
If Me.ComboBox1.ListIndex = 0 Then
MsgBox "Vous êtes au premier membre enregistré"
End If
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex - 1
End If
End Sub
Bon courage