cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 21 juil. 2003 à 11:32
Bonjour
Si c'est dans la TextBox Text1, utilise
Private Sub Text1_KeyPress(KeyAscii As Integer)
et teste la valeur de KeyAscii
(de 48 à 57 -> chiffres ; 46 -> point ; 44 -> virgule)
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 21 juil. 2003 à 19:11
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii ' test du caractère saisi
Case 46 'si c'est un point
KeyAscii = 44 'on le remplace par une virgule
Case 8, 48 To 57
'si c'est Retour arrière ou un chiffre
Case Else 'si c'est autre chose
KeyAscii = 0 'on n'en tient pas compte
End Sub