[VBA-E] Saisie d'une date dans une Input Box

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

Bonjour,

Tu peux utiliser la fonction IsDate()

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

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

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

exemple

Code:

---

1 2 3 4

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

---

Citation:

---

Envoyé par sovo

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

exemple

Code:

---

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:

---

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

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

Citation:

---

Envoyé par 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...

---

Tout à fait, jmf.

Mais alors pourquoi pas un UserForm?

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

cqfd!

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 :D (just pour l'oriente).

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

Code:

---

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

---

ou encore :

Code:

---

1 2 3 4

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

---

:mouarf:

Mouais, je me suis gourée de boucle :oops:

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:

---

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

la dessus je suis dac.

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

Dernière mouture:

Code:

---

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

---