Bonsoir rem$, le Forum.
Soit un bouton de validation nommé "BtnValiderUSF" et des contrôles "ComboBox1", "TextBox1", "TextBox2", "CheckBox"(1 à 5), tu peux essayer le code ci-dessous dans le module de code d'Userform :
Private Sub BtnValiderUSF_Click()
If SaisieOk = 5 Then
'recopie les donnees dans la feuille excel ...
Unload Me
Else
MsgBox "Saisie incomplète !" & vbLf & "(" & Choose(SaisieOk, "ComboBox1", "TextBox1", "TextBox2", "CheckBox") & ")", vbOKOnly, "Erreur..."
End If
End Sub
Private Function SaisieOk() As Byte
Dim Ctrl As Control
SaisieOk = 1
If Combobox1.ListIndex < 0 Then Exit Function
SaisieOk = 2
If Trim(TextBox1.Text) = "" Then Exit Function
SaisieOk = 3
If Left(TextBox2.Text, 2) <> "54" Then Exit Function
SaisieOk = 4
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "CheckBox" Then
If Ctrl.Value Then
SaisieOk = 5
Exit For
End If
End If
Next Ctrl
End Function
Cordialement,
Didier_mDF