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...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
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