Bonjour à tous,
Je voudrai savoir comment rendre obligatoire des champs d'un userform.
C'est à dire, que lorque certains champs obligatoires ne seront pas rempli, il faut qu'une message box s'affiche et m'indique tous les champs qui ne sont pas remplis et qui doivent l'être!
Est ce que quelqu'un aurai une petite idée?
J'ai essayé avec ce code mais, rien ne se passe...
Private Sub Valider_Click()
If Champs <> "" Then
Champs = Application.WorksheetFunction.Substitute(Champs, "*", " ")
Msg = MsgBox(" Des champs obligatoires n'ont pas été renseignés :" & Chr(13) & Champs & Chr(13) & Chr(13) & "Veuiller les completer", vbOKOnly + vbCritical, "Champs manquant ou incorrects")
Else
Msg = MsgBox(" Anomalie enregistrée ", vbOKOnly + vbInformation, " Anomalie enregistrée ")
Unload Saisie
End If
End Sub
Merci pour votre aide