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

[jmfmarques]

Et quid de l'utilisation toute bête d'un cadre dont on modifie la propriété Visible pour le faire apparaître et disparaitre ?
Il présente l'avantage d'y inclure un Dtpicker, entre autres...

[zazaraignée]

Et quid de l'utilisation toute bête d'un cadre dont on modifie la propriété Visible pour le faire apparaître et disparaitre ?
Il présente l'avantage d'y inclure un Dtpicker, entre autres...

Tout à fait, jmf.

Mais alors pourquoi pas un UserForm?

[jmfmarques]

Egal tout pareil !
Même une PictureBox !
Enfin quoi : tout container que l'on peut cacher ou montrer, avec tout ce qu'il a dans le ventre....

[zazaraignée]

cqfd!

[sovo]

heu zaza, je craint que ton code ne soit pas adapter.

car tu ne change pas la valeur de [b]LaDate[/d] et de ce fait quelque soit ce qu'il va entrer (que ce soit une date ou pas) il va sortir du while.


Par contre chez moi vu le fait que je change la valeur de MaDate tant que ce ne sera pas une date et bien il sera obliger d'entrer une date valide. En revanche je trouve pas mal de mettre une valeur par defaut (just pour l'oriente).

[sovo]

Apres quelques test (sur le mien comme sur celui de zaza) voila finalement celui qui focntionne

Code :

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

1
2
3
4
5
6
Dim MaDate As Variant
 
MaDate = "32/05/2006"  'Pas oblige d'initialiser, mais si on le fait il faut ne pas donner une date valide.
While Not IsDate(MaDate)
    MaDate = InputBox("Entrez une date", "Date", MaDate)
Wend

[jmfmarques]

ou encore :

Code :

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

1
2
3
4
MaDate = "c'est pas une date" 
While Not IsDate(MaDate)
    MaDate = InputBox("Entrez une date", "Date", MaDate)
Wend

[zazaraignée]

Mouais, je me suis gourée de boucle

L'idée est justement de donner une date par défaut qui soit valide. D'où la suggestion d'utiliser une chaîne qui représente la date du jour. Si l'utilisateur la modifie, c'est la date qu'il a iscrite qui est prise en compte.
Exemple:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Load()
    Dim LaDate As String
    LaDate = "31/05/2006"
    Do
        LaDate = InputBox("Entrez une date", "Date", LaDate)
    Loop Until IsDate(LaDate)
    Label1.Caption = LaDate
End Sub

Testé sous VB6

[sovo]

la dessus je suis dac.

je croit que lorsque notre ami reviendra il n'aura de choix que de mettre le tag [RESOLU].

[zazaraignée]

Dernière mouture:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
    Dim lsDate As String
    lsDate = Format(Now, "dd\/MM\/yyyy") ' toujours la date du jour
    Do
        lsDate = InputBox("Entrez une date", "Date", lsDate)
    Loop Until IsDate(lsDate)
    ' garantit un format uniforme
    Label1.Caption = Format(CDate(lsDate), "dd\/MM\/yyyy")
End Sub