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é
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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é" a écrit dans le message de news: 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é
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é" <perez.jose@free.fr> a écrit dans le message de news:
474f1228$0$23252$426a34cc@news.free.fr...
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é
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é" a écrit dans le message de news: 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
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é
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é
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é