UserForm et controle du type de donnée

bonjour

tu peux tester les fonctions

If IsNumeric(TextBox1) Then …

If IsDate(TextBox1) Then …


bonne soirée
MichelXld

Bonsoir lezabour, Michel, le Forum,

Voici d'abord quelques lignes extraites d'un code et qui sont dans l'esprit de ce qu'a noté Michel.
Elles sont contenues dans le code lié à un CommandButon de validation :

If CDate(TextBox1) < CDate(TextBox2) Then MsgBox ("La date n'est pas conforme"): TextBox1.SetFocus: Exit Sub
If TextBox12.Value = "" Then MsgBox ("Veuillez indiquer un n° de barème"): TextBox12.SetFocus: Exit Sub


Sinon, voici un extrait de code que j'ai utilisé pour tester la validité des informations saisies dans des textbox au moment de la sortie de ces textbox (les valeurs attendus sont des pourcentages de variation) :

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox3 = "" Then Exit Sub
C = TextBox3
Vérif_variation (C)
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox4 = "" Then Exit Sub
C = TextBox4.Value
Vérif_variation (C)
End Sub

Private Sub Vérif_variation(C)
Select Case C
Case -10 To -0.01
MsgBox "Veuillez contrôler la saisie de la variation négative", vbOKOnly, "Variation négative" ': End Select
Case Is < (0.09)
MsgBox "Veuillez saisir un pourcentage" & Chr(13) & "Au format 0,00 (avec une virgule)", vbOKOnly, "Message": C = 0
Case Is > 10
MsgBox "Veuillez contrôler votre saisie !" & Chr(13) & "Au format 0,00 (avec une virgule)", vbOKOnly, "Message"
End Select
End Sub

Bonne soirée.

C'est exactment ca
Mais j'ajouterai une finesse: un de mes champs est un numero comptable saisie au format 000000 (ex: 00002018) y a til moyen de verifier que ce format est bien utiliser dans le textbox?
Merci

bonjour Lezabour , bonjour JCA06


je ne suis pas sur que cela te convienne mais tu peux tester :

If IsNumeric(CLng(TextBox1)) = True And Len(TextBox1) = 8 Then


bonne soiree
MichelXld