format date inputbox

[Alex]

Bonjour le forum

comment puisje faire pour obliger l'utilisateur a saisir une date dans l'inputbox?
Que faut-il rajouter a :
naissance = InputBox("Veuillez entrer la date de naissance de " & Myname, "AJOUTER")

Merci davance

 

[Alain]

Tu peux essayer avec quelquechose de ce style :

demande:
naissance = InputBox("Veuillez entrer la date de naissance de " & Myname, "AJOUTER")
If Not (IsDate(naissance)) Then
MsgBox "Veuillez entrer la date sous la forme jj/mm/aa"
GoTo demande
End If


@+

 

[Arnaud]

salut,

je ne pense pas que cela soit possible. Si tu tiens a forcer l'utilisateur a saisir une date, tu risque d'être obligé de passé par une UserForm.

 

[Arnaud]

a oui effectivemment, j'avais pas penser à la solus d'Alain qui marche pas mal .