Discussion :

[nicobox]

Bonjour,

Comment controler la saisie d'une date dans une input box ?

Je m'explique j'affiche une input box qui demande à l'utilisateur la saisie d'une date, cependant si la date saisie n'a pas un format de date ou bien si il saisit une date du type 31/02/2005 j'ai erreur type incompatible.

Comment faire pour ancitiper ca ?

D'avance merci de votre aide

[pc75]

Bonjour,

Tu peux utiliser la fonction IsDate()

[ironik]

sinon tu peux utiliser le calendrier ou encore faire 3 list box forcant a bien entrer la date ^^

[nicobox]

ok merci je vais tenter le calendar mais pas simple à utiliser

[sovo]

moi je te proposerais plutot le Isdate (comme pc75), car plus facile a manipuler

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
MaDate = "31/05/2006"
while not Isdate(Madate)
    MaDate=inputbox("Entrer une date")
wend

[zazaraignée]

moi je te proposerais plutot le Isdate (comme pc75), car plus facile a manipuler

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
MaDate = "31/05/2006"
while not Isdate(Madate)
    MaDate=inputbox("Entrer une date")
wend

Je doute que ça marche je ferais plutôt ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim LaDate As String, MaDate As Date
LaDate = "31/05/2006"
While Not IsDate(LaDate)
    MaDate = InputBox("Entrez une date", "Date", LaDate)
Wend

ainsi une date est proposée en valeur par défaut. LaDate peut contenir une chaine (String) représentant la date du jour (fonction Now).