Private Sub CommandButton1_Click()
'impression feuille active
If MsgBox("Voulez-vous imprimer la feuille ?", vbYesNo) = vbYes Then
If Me.TextBox1.Object.Value <> "" And Me.TextBox2.Object.Value <> "" And Me.ComboBox1.Object.Value <> "" Then
ActiveSheet.PrintOut
MsgBox ("C'est faaaaaiiiiiittttt")
Else
MsgBox "Vous devez remplir les trois champs !"
If Me.TextBox1.Object.Value = "" Then Me.TextBox1.Verb xlVerbPrimary: Exit Sub
If Me.TextBox2.Object.Value = "" Then Me.TextBox2.Verb xlVerbPrimary: Exit Sub
If Me.ComboBox1.Object.Value = "" Then Me.ComboBox1.Verb xlVerbPrimary
End If
End If
End Sub