Boucle avec InputBox

Bonjour,

J'essaye de faire une boucle pour tester la valeur saisie dans une InputBox:

Code:

---

1 2 3 4

Dim st As String = " " While st.Length <> 10 And Not st.Contains("/") st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)") End While

---

Le problème est qu'il ne marche pas
:cry:

J'ai essayé avec la date "10/12/09" et le code a bien continué :?

Est-ce que quelqu'un sait pour quoi?
Merci d'avance

Code:

---

1 2 3 4

While st.Length <> 10 And Not st.Contains("/") st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)") End While

---

D'abord ta boucle ne sert a rien puisque si l'on entre une valeur donc le nombre de caractère est different de 10 et ne contient pas "/" on entre dans une boucle infinie.

Et si ta chaine contient un seul "/" c'est normal qu'on entre pas dans cette boucle

Merci pour ta reponse lilroma.

Citation:

---

D'abord ta boucle ne sert a rien puisque si l'on entre une valeur donc le nombre de caractère est different de 10 et ne contient pas "/" on entre dans une boucle infinie.

---

L'idée c'est de forcer une saisie de la date au bon format, et faire le boucle jusqu'à cette saisie...

Peut-être j'ai m'exprimé pas bien:
Malgré le fait d'avoir un "/", ma date n'avais pas 10 caractères...
Est-ce que le boucle devrait continuer?

Dans la condition, ça devrait être un OU, pas un ET. Il suffit qu'une seule des conditions soit vérifiée pour qu'on continue à boucler

Code:

---

1 2 3 4

Dim st As String = " " While st.Length <> 10 Or Not st.Contains("/") st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)") End While

---

On peut aussi l'écrire sous cette forme :

Mais de toutes façons ce test n'est pas suffisant pour savoir si la date saisie est valide. Il vaudrait mieux faire comme ça :

Code:

---

1 2 3 4 5

Dim st As String = " " Dim dt As DateTime While Not DateTime.TryParseExact(st, "dd/MM/yyyy", CultureInfo.InvariantCulture, DateTimeStyles.None, dt) st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)") End While

---

Code:

---

1 2 3 4 5

Dim st As String = " " While st.Length <> 10 Or Not st.Contains("/") st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)") End While

---

Même avec sa c'est pas bon parceque en saisissant n'importe quoi avec 10 caractere et un "/" comme caractères sa va passer faut que tu utilise la seconde méthode.

Code:

---

1 2 3 4 5 6

Dim st As String = " " Dim dt As DateTime While Not DateTime.TryParseExact(st, "dd/MM/yyyy", CultureInfo.InvariantCulture, DateTimeStyles.None, dt) st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)") End While

---

Merci à toi aussi tomlev.

J'ai essayé ton code, mais il dit que CultureInfo et DateTimeStyles ne sont pas déclarés...

J'ai trouvé Imports System.Globalization.

Est-ce que ça suffi?

Citation:

---

Envoyé par Marc_27

Est-ce que ça suffi?

---

Ben essaie, tu verras bien ;)
(a priori oui, ça suffit...)

J'ai essayé,

les erreurs ont bien disparus mais on ne sait jamais... ;)

Bon,
Merci beaucoup encore une fois
:ccool: