Quel est la valeur d'une listbox multiselect non selectionnée?

Salut je dois empecher un utilisateur de valider sans avoir rempli completement ma userform.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub oubli() 'Messages de protection des remplissages' condition_sortie = False If textbox1.value = rien Then MsgBox "données incompletes.", 0, "Saisie imcomplète." condition_sortie = True End If If combobox2.value= rien Then MsgBox "données incompletes.", 0, "Saisie imcomplète." condition_sortie = True End If If combobox1.Value = rien Then MsgBox "données incompletes.", 0, "Saisie imcomplète." condition_sortie = True End If   If listbox1.ListIndex = -1 Then MsgBox "Saisissez une échéance ou un déroulement.", 0, "Saisie imcomplète." condition_sortie = True End If End Sub

---

Le souci c'est que ma listbox1 est en multiselect et que j'ai essayé = rien, .listindex =-1, ="" cela ne fonctionne pas je ne connais pas la valeur de cette listbox lorsqu'il n'y a pas de selection en bleu.

Si quelqu'un a la solution je serrais au ange.
Merci JZV

La valeur est FAUX -> False -> 0
Pour le savoir, mets un bouton sur ton userform et teste ça

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() For i = 0 To UserForm1.ListBox1.ListCount - 1 MsgBox UserForm1.ListBox1.Selected(i) Next End Sub

---

Bonne journée

Bonjour,

je te propose cette démo à mettre dans un événement click d'un bouton de commande :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim toto As String toto = "" For i = 0 To Listbox1.ListCount - 1 If Listbox1.Selected(i) Then toto = toto & "article sélectioinné : " & i & " disant " & Listbox1.List(i) & vbCrLf End If Next If toto = "" Then MsgBox "rien de sélectionné" Else MsgBox toto End If

---

EDIT : mais tu préfèreras (surtout su ta liste est longue) éviter une boucle à chaque fois !

Voilà alors une méthode :

tout en haut de ton code, une variable (ici toto)

Code:

---

Private toto As Integer

---

dans l'évènement click de ta listbox :

Code:

---

toto = IIf(Listbox1.Selected(Listbox1.ListIndex), toto + 1, toto - 1)

---

où tu veux ailleurs dans ton code (dans un bouton de coimmande ou ailleurs) :

Code:

---

MsgBox toto & " articles sélectionnés dans listbox1"

---

et tu sauras où tu en es sans les lenteurs éventuelles d'une boucle