Discussion :

[FRGOL]

Bonjour à Tous,

J'ai une Listbox dans un Userform (VBA Excel 2007) pour laquelle j'aimerais tester si une valeur au moins a été choisie par l'utilisateur.

Cette Listbox est de type multiple (propriété Multiselect = 1).

Pour une Listbox de type Single, (propriété Multiselect = 0), on peut testez la valeur de Listbox1.ListIndex qui sera à -1 si rien n'est choisi.
Malheureusement , et sauf erreur de ma part, pour le type multiple, Listbox1.ListIndex retourne la dernière valeur ayant eu le focus, ce qui ne me sert à rien ici...

Existerait il un moyen plus simple que de boucler avec un code style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
aumoinsunchoix=False
 
With Listbox1
     for i = 0 to .ListCount - 1
          if .selected(i)= True then aumoinsunchoix=True
     next
End With
 
if aumoinsunchoix = False then MsgBox "Aucun choix selectionné"

Merci par avance

[Theze]

Bonjour,

Effectivement, il te faut boucler mais tu peux sortir de la boucle sitôt le premier choix rencontré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub CommandButton1_Click()
 
    Dim Choix As Boolean
 
    Dim I As Integer
 
    With ListBox1
        For I = 0 To .ListCount - 1
            If .Selected(I) = True Then Choix = True: Exit For
        Next
    End With
 
    MsgBox IIf(Choix = True, "Au moins un choix selectionné", "Aucun choix selectionné")
 
End Sub

[FRGOL]

Merci Theze pour ta réponse.
C'est bien ce que je pensais, il faut passer par une boucle.
Et ton astuce de "sortie de boucle" est effectivement un plus dans le code...