contrôle de saisie d'un réel simple

[Jojo]

Coucou les amis,

Je voulais tous vous remercier de répondre aussi vite.

Vous m'avez pas mal aidé mais j'ai encore un problème de contrôle de saisie.

Alors, j'ai une textbox ds laquelle je fais saisr un nombre réel simple. Je veux qu'il rentre un réel simple ou un entier mais pas de caractére. Le Problème c la virgule. La fonction "IsNumeric" ne reconnait que les chiffres. y'a-t-il une autre fonction?

Que faire?

Merci bcp

 

[michel]

bonjour Jojo

j'espere que les exemples pourront t'aider
comme je n'ai pas bien compris si tu souhaitais avoir la virgule valide ou non valide lors de la saisie , je porpose les deux cas de figure

virgule non valide
Private Sub TextBox1_Change()
On Error Resume Next
If Not IsNumeric(Right(TextBox1, 1)) Then
MsgBox "Le caractere saisi n'est pas valide"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End Sub

virgule valide
Private Sub TextBox1_Change()
On Error Resume Next
If Not IsNumeric(Right(TextBox1, 1)) And Right(TextBox1, 1) <> "," Then
MsgBox "Le caractere saisi n'est pas valide"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End Sub


bon apres midi
michel