Discussion :

[jolzeviking]

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

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

[ouskel'n'or]

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

Code :

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

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

[ucfoutu]

Bonjour,

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

Code :

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

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 :

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

Private toto As Integer

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

Code :

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

 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 :

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

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

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