Définir le type des données contenues dans une TextBox

Bonjour,

Peut qun m'aider à définir le type de données que j'ai dans une variable de type String (provenant de la saisie dans une textbox). Je m'assurer que l'utilisateur a bien tappé une nombre et une date dans les textbox correspondantes.

Merci d'avance et a bientôt.

Bonjour,

Pour vérifier que l'utilisateur a bien rentré un nombre dans ta TextBox, jette un oeil du côté de la méthode IsNumeric, cela répondra à ton problème.

Pour ce qui est de la date de la forme xx/xx/xxxx par exemple, tu peux coupler IsNumeric à un découpage de la chaîne pour vérifier que le caractère "/" est bien présent aux bonne positions. Pour les découpages de chaînes de caractères, vas jeter un oeil dans les tutos sur Mid et InStr.

Reviens-nous voir si tu n'arrives pas à te débrouiller avec cela :zoubi:

merci DeaD78... j'y vais (:

Salut,
plus efficace encore qu'Isnumeric ici : IsDate() ;)

Re,

Déjà un petit exemple pour que tu puisses avancer. J'ai créé un Userform avec une TextBox et un bouton de contrôle histoire de valider la saisie. Ca donne donc :

Code:

---

1 2 3 4 5

Sub test()   UserForm1.Show   End Sub

---

Puis, dans CommandButton1_Click() :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton1_Click()   If IsNumeric(UserForm1.TextBox1.Value) Then MsgBox ("C'est bon !") Unload UserForm1 Else MsgBox ("C'est pas bon, recommencez !") UserForm1.TextBox1.Value = "" UserForm1.Repaint End If   End Sub

---

Il ne te reste donc plus qu'à faire pareil avec la date. Je dois avouer qu'utiliser IsDate() comme le propose jpcheck sera encore plus efficace... à moins que ça ne soit pas une date avec laquelle tu travailles mais un String déguisé :mouarf:

mm. Sauf que IsDate n'existe pas chez moi (: j'ai créé donc une version a moi grace au fonctions que vous m'avez indiquées et ça donne ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Function isDate(var As String) As Boolean If (Len(var) = 10) Then If (InStr(var, "/") = 3) Then If (InStr(4, var, "/") = 6) Then If (IsNumeric(Left(var, 2))) Then If (IsNumeric(Right(var, 4))) Then If (IsNumeric(Left(Right(var, 7), 2))) Then If (Left(var, 2) >= 1 And Left(var, 2) <= 31 And Left(Right(var, 7), 2) >= 1 And Left(Right(var, 7), 2) <= 12) Then isDate = True End If End If End If End If End If End If End If End Function

---

C'est moche, mais ça marche bien. En fait les ifs sont imbriqués car les tests doivent se suivre.
Merci encore une fois et bonne continuation.