ghitaik
Messages postés36Date d'inscriptionlundi 1 novembre 2004StatutMembreDernière intervention11 mai 2009 1 déc. 2004 à 02:20
cela depend de la place ou tu lis les numeriques, si c'est dans un text alors:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If ((KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8) Then KeyAscii = 0
if((keyascii=13)then "traitement necessaire")
le 13 est le retour chariot (Entree)
le 9 est le backspace
DHKold
Messages postés153Date d'inscriptionvendredi 6 décembre 2002StatutMembreDernière intervention29 mai 20052 15 févr. 2003 à 22:52
C'est très simple, tu utilise isnumeric(), qui renvoit TRUE si c'est une valeur numérique, FALSE sinon, exemple ou le calcul n'est effectué que si Text1 contient un nombre:
if isnumeric(Text1) then text1 = (text1 ^ 2) * 3.1415
1 déc. 2004 à 02:20
Private Sub Text1_KeyPress(KeyAscii As Integer)
If ((KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8) Then KeyAscii = 0
if((keyascii=13)then "traitement necessaire")
le 13 est le retour chariot (Entree)
le 9 est le backspace
15 févr. 2003 à 22:52
if isnumeric(Text1) then text1 = (text1 ^ 2) * 3.1415
DHKold