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