ListBox, ListIndex toujours égal à 0?

Version imprimable

Bonjour,

J'ai un petit soucis avec la gestion de listindex sur une listbox. Je souhaite savoir si l'utilisateur a sélectionné au moins 1 ligne...

Dans un formulaire, j'ai une listbox qui est renseignée ainsi:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ' Récupérer le tableau (Nom, Prenom, NLicence, Class. S., Class. D, Class. DM) Dim oTblNomPrenomLicence() As Variant oTblNomPrenomLicence = fctTblNomPrenomLicence ' Remplir la listbox With Me.lstJoueurs .columnCount = 3 '.List = Application.WorksheetFunction.Transpose(oTblNomPrenomLicence) .MultiSelect = fmMultiSelectMulti For i = LBound(oTblNomPrenomLicence, 2) To UBound(oTblNomPrenomLicence, 2) .AddItem .List(.ListCount - 1, 0) = oTblNomPrenomLicence(1, i) ' Nom .List(.ListCount - 1, 1) = oTblNomPrenomLicence(2, i) ' Prénom .List(.ListCount - 1, 2) = oTblNomPrenomLicence(3, i) ' Licence Next i .Selected(0) = True ' Sélectionner la 1er joueur End With
A côté de cette listbox, j'ai placé 2 boutons (Aucun, Tous):
Code:

1 2 3 4 5 6 7 8 9 Private Sub btJoueursAucun_Click() ' Désélectionner tous les joueurs For i = 0 To Me.lstJoueurs.ListCount - 1 Me.lstJoueurs.Selected(i) = False Next i End Sub
Code:

1 2 3 4 5 6 7 8 9 Private Sub btJoueursTous_Click() ' Sélectionner tous les joueurs For i = 0 To Me.lstJoueurs.ListCount - 1 Me.lstJoueurs.Selected(i) = True Next i End Sub
Sur la validation du formulaire, je contrôle que l'utilisateur a sélectionné au moins une ligne:
Code:

1 2 3 4 5 If Me.lstJoueurs.ListIndex = -1 Then MsgBox "Veuillez sélectionner un ou plusieurs joueurs.", vbExclamation, "Erreur: Aucune sélection" Exit Sub End If
Seulement, voici le résultat:
- si je valide le formulaire sans aucune autre action -> Me.lstJoueurs.ListIndex = 0 (Normal j'ai sélectionné la 1ère ligne au remplissage de la listbox)
- si je clique sur le bouton Tous -> Me.lstJoueurs.ListIndex = 0
- si je clique sur le bouton Aucun -> Toutes les lignes sont désélectionnées mais Me.lstJoueurs.ListIndex = 0
- si je clique sur la 1ère ligne -> Toutes les lignes sont désélectionnées mais Me.lstJoueurs.ListIndex = 0

Pourquoi listindex est-il toujours à 0?
L'aide VBA indique pourtant ListBox.ListIndex, ListBox.Selected

Merci de m'avoir lu!

Gdal

Bonsoir
tu a 4 fenêtres code dans ton post je te suggère d'analysera le2 et le 4

il faut mettre a -1 pour aucun
Code:

1 2 3 Private Sub btJoueursAucun_Click() Me.lstJoueurs.ListIndex = -1 End Sub
Code:

1 2 3 4 5 6 7 8 Private Sub btJoueursTous_Click() ' Sélectionner tous les joueurs For i = 0 To Me.lstJoueurs.ListCount - 1 Me.lstJoueurs.Selected(i) = True Next i End Sub
Code:

1 2 3 4 5 Private Sub UserForm_Activate() ' ou Initialize 'ton remplissage de listbox ici Me.lstJoueurs.ListIndex = -1 End Sub
après List index renvoie 0 si le 1er ou plusieurs items sont sélectionnés
il te faut passer par un boucle pour le test

tu pourrais très bien faire une toute petite fonction pour ca

Salut,

CEla confirme ce que je pensais...
Voici la fonction qui contrôle que la listbox à au moins une sélection

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Function fctLstBxSelection(lst As Control) As Boolean
 
    For i = 0 To lst.ListCount - 1
 
        If lst.Selected(i) = True Then
            fctLstBxSelection = True
            Exit Function
        End If
 
    Next i
 
End Function

Code:

1
2
3
4
5
6
 
    If fctLstBxSelection(Me.lstJournees) = True Then
        MsgBox "Sélection Ok"
    Else
        MsgBox "Sélection NOk"
    End If

Gdal

re
oui attention aux fuite mémoire quand meme
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Function fctLstBxSelection(lst As Control) As Boolean For i = 0 To lst.ListCount - 1 If lst.Selected(i) = True Then fctLstBxSelection = True Exit for End If Next i End Function
quand tu exit la fonction ca risque de te renvoyer un boolean (false)
fait plutôt un exit for

mais si tu avais suivi mes intervention avec le -1 tu aurais pu faire
Code:

1 2 3 Private Function fctLstBxSelection(lst As Control) As Boolean fctLstBxSelection=lst.listindex<>-1 end function
explication a nouveau !!

quand tu a 1 ou plusieurs item de sélectionnés List index te renvoie 0 pour plusieurs ou l'index sélectionné si il y a qu'un item sélectionné
il est donc raisonnable de panser que si tu met bien le -1 au départ dans ta list
si c'est -1 il y a rien si il y 0 ou X c'est oui
c'est pas compliqué