Discussion :

[ghosty04]

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.

[DeaD78]

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

[ghosty04]

merci DeaD78... j'y vais (:

[Jean-Philippe André]

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

[DeaD78]

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 :

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

1
2
3
4
5
Sub test()
 
UserForm1.Show
 
End Sub

Puis, dans CommandButton1_Click() :

Code :

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

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é

[ghosty04]

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 :

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

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.