VBA - Listbox Multiple - Déterminer si au moins une valeur a été sélectionnée

Version imprimable

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:

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 :)

Bonjour,

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

Code:

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

06/01/2016, 23h13
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...;)