Forcer saisie numérique avec virgule/pointRésolu

Question

Bonjour à tous, je suis nouveau sur ce forum, donc excusez moi s'avance si je post au mauvais endroit.
Voilà je suis en stage et j'ai une application de gestion à mettre en place.
J'ai trouvé un code qui permet d'entrer que des valeurs numériques, mais je dois entrer un prix, qui peut comporter une virgule.

Private Sub Textpxpdt_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKey0 To vbKey9
Case Else
KeyAscii = 0
End Select
End Sub

Si quelqu'un connait la solution à mon problème je le remercie fortement.

jmfmarques · Accepted Answer

Bonjour,
Va voir ce fou-là :
http://www.vbfrance.com/codes/SAISIES-CONTROLEES-DIVERSES-ALPHABETIQUES-NUMERIQUES_42484.aspx

cs_Exploreur · Answer

Salut,

Regarde cela :

Private Sub Textpxpdt_KeyPress(KeyAscii As Integer)

If Not IsNumeric(Chr(KeyAscii)) Then       If KeyAscii 8 Or Keyascii 44 Then
          ' on fait rien
       Else
          KeyAscii = 0
       End If
End If

End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Lol...Il n'y a pas de fou sur Vbfrance....Désolé post croisé..

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Euh pardon 1022934  Choucroute62, oubli dans mon code : Keyascii  = 44....Car sinon tu va pouvoir mettre 50 virgule !!!!

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Choucroute62 · Answer

Mercii, mais je mets quoi a la place de 44??

cs_Exploreur · Answer

Salut,

En faite il faut autoriser la saisie de la virgule qu'une seule fois..

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Choucroute62 · Answer

Ok, bon je vais désormais essayer de trouver comment sécuriser la saisie avec une seule virgule (débutant oglige) :d:d
Merci

jmfmarques · Answer

donc :
remplacerIf KeyAscii 8 Or Keyascii 44 Then
parIf KeyAscii 8 Or (Keyascii 44 and instr(Textpxpdt, ",") = 0) Then

jmfmarques · Answer

Pardon !If KeyAscii 8 Or (Keyascii 44 and instr(Textpxpdt .text , ",")  = 0) Then

cs_Choucroute62 · Answer

Merci de votre aide rapide et précise!
Ca marche nickel!
A++

Forcer saisie numérique avec virgule/point

10 réponses

Votre réponse

Discussions similaires