accepter la virguleRésolu

Question

Bonjour a tous et bonne année 2008

Private Sub Taux_Change()
If IsNumeric(Taux.Text) Then
Else
Taux.Text = 0
End If
End Sub

Voilà mon code depuis un textbox.
Il ne prends en considération que les chiffres de 0 à 9 et les signe , + -
Je voudrais pouvoir permettre le point "." pour qu'il soit pris en considération, ou soit le changer en ","

Pouvez vous m'aider svp ?

cs_Exploreur · Accepted Answer

Re,

Private Sub Text1_KeyPress(KeyAscii As Integer)
'<E> Keyascii = 44 >> ,
'    Keyascii = 46 >> .
If KeyAscii = 44 Then MsgBox "J'suis la virgule !!!"
End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Salut,

Pour remplacer le point ou la virgule, utilise pour cela : Replace

Après pour accepter la virgule regarde du côté du code Ascii : 44 (Alt+44)

A+
Exploreur

 Linux a un noyau, Windows un pépin

PCPT · Answer

salut à tous

autre possibilité dans la même idée que celle d'Explo

Private Sub Taux_KeyPress(KeyAscii As Integer)
    If InStr(1, "0123456789.," & vbBack, Chr$(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Sinsitrus · Answer

Merci a tous !
Ca m'a été vraiment très utile.

Explorer, tu réponds plus sur msn ? ca fais vieux mon pote !

cs_Exploreur · Answer

bah...t'es jamais connecté !!!!

A+
Exploreur

 Linux a un noyau, Windows un pépin

Accepter la virgule

5 réponses

Votre réponse

Discussions similaires