Bonjour à tous
j'ai un userform à renseigner. Dans cet userform, il y a une date. je veux que si la date est absente ou si son format n'est pas bon, un message d'erreur s'affiche. Ce que fait le code si dessous mais, il ferme l'userform. Or je voudrais pouvoir corriger et continuer.
Merci de m'indiquer si vous le savez comment rédiger ce code
[c4] = TextBoxDate.Value
TextBoxDate = Format(TextBoxDate, "dd/mmm/yyyy")
If ("c4") <> Format(TextBoxDate, "dd/mmm/yyyy") Then MsgBox ("Merci de renseigner la date ou de corriger le format")
Merci d'avance
Gérard
j'ai un userform à renseigner. Dans cet userform, il y a une date. je veux que si la date est absente ou si son format n'est pas bon, un message d'erreur s'affiche. Ce que fait le code si dessous mais, il ferme l'userform. Or je voudrais pouvoir corriger et continuer.
Merci de m'indiquer si vous le savez comment rédiger ce code
[c4] = TextBoxDate.Value
TextBoxDate = Format(TextBoxDate, "dd/mmm/yyyy")
If ("c4") <> Format(TextBoxDate, "dd/mmm/yyyy") Then MsgBox ("Merci de renseigner la date ou de corriger le format")
Merci d'avance
Gérard