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