Listbox... item sélectionné

Le
José
Bonsoir,
Pourriez vous m'indiquer le code à placer dans un CommandButton pour que
chaque fois que je valide ce bouton, l'item sélectionné passe au suivant.
Merci d'avance pour vos réponses.
José
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5076391
Bonsoir.
Arrivé en bas d ela liste, on repart en début de liste :
Private Sub CommandButton1_Click()
If ListBox1.ListIndex + 1 = ListBox1.ListCount Then
ListBox1.ListIndex = 0
Else
ListBox1.ListIndex = ListBox1.ListIndex + 1
End If
End Sub
Cordialement.
Daniel
"José" 474f1228$0$23252$
Bonsoir,
Pourriez vous m'indiquer le code à placer dans un CommandButton pour que
chaque fois que je valide ce bouton, l'item sélectionné passe au suivant.
Merci d'avance pour vos réponses.
José




LSteph
Le #5076361
Bonsoir,

Private Sub CommandButton1_Click()
With ListBox1
If .ListIndex < .ListCount - 1 Then
.ListIndex = .ListIndex + 1
Else
.ListIndex = 0
End If
End With

End Sub

'lSteph

Bonsoir,
Pourriez vous m'indiquer le code à placer dans un CommandButton pour que
chaque fois que je valide ce bouton, l'item sélectionné passe au suivant.
Merci d'avance pour vos réponses.
José




Publicité
Poster une réponse
Anonyme