For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
cpt = cpt + 1
End If
Next i
MsgBox "nb d'item selectionnés : " & cpt
[LEFT]For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
cpt = cpt + 1
End If
Next i
If cpt<2 Then
MsgBox "Veuillez choisir au moins 2 choix !!!"
Else
[COLOR=seagreen]'le reste de ton code[/COLOR]
End if[/LEFT]
Private Function SaisieOk() As Byte
Dim Ctrl As Control, i%, cpt%
SaisieOk = 1
If Trim(TextBox18.Text) = "" Then Exit Function
SaisieOk = 2
If Trim(TextBox6.Text) = "" Then Exit Function
SaisieOk = 3
If Trim(TextBox7.Text) = "" Then Exit Function
SaisieOk = 4
If ComboBox5.ListIndex < 0 Then Exit Function
SaisieOk = 5
If Trim(TextBox10.Text) = "" Then Exit Function
SaisieOk = 6
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
cpt = cpt + 1
End If
Next i
If cpt < 1 Then Exit Function
SaisieOk = 7
If ComboBox3.ListIndex < 0 Then Exit Function
'en fonction de l'étape qui passe ou pas un msgbox previent du champs non rempli
If Not SaisieOk = 7 Then MsgBox "Saisie incomplète !" & vbLf & "(" & Choose(SaisieOk, "Date", "Société", "N° client", "DOR", "Affaire suivi par", "Nature du probleme", "Secteur concerné") & ")", vbOKOnly, "Erreur...."
End Function
If UserForm1.ListBox1.Selected(i) Then
Private Function SaisieOk() As Byte
Dim Ctrl As Control
SaisieOk = 1
If Trim(TextBox18.Text) = "" Then GoTo fin
SaisieOk = 2
If Trim(TextBox6.Text) = "" Then GoTo fin
SaisieOk = 3
If Trim(TextBox7.Text) = "" Then GoTo fin
SaisieOk = 4
If ComboBox5.ListIndex < 0 Then GoTo fin
SaisieOk = 5
If Trim(TextBox10.Text) = "" Then GoTo fin
SaisieOk = 6
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
cpt = cpt + 1
End If
Next i
If cpt < 1 Then GoTo fin
SaisieOk = 7
If ComboBox3.ListIndex < 0 Then GoTo fin
fin:
MsgBox "Saisie incomplète ! Veuillez remplir la champ n° " & SaisieOk
End Function