CONTRÔLE DE LA SAISIE D'UN NOMBRE DANS UN TEXTBOX
FENETRES
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009
-
27 oct. 2004 à 12:27
SgtKabukinan Messages postés 106 Date d'inscription lundi 20 septembre 2004 Statut Membre Dernière intervention 23 janvier 2010 - 16 nov. 2005 à 16:59
SgtKabukinan Messages postés 106 Date d'inscription lundi 20 septembre 2004 Statut Membre Dernière intervention 23 janvier 2010 - 16 nov. 2005 à 16:59
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/27082-controle-de-la-saisie-d-un-nombre-dans-un-textbox
https://codes-sources.commentcamarche.net/source/27082-controle-de-la-saisie-d-un-nombre-dans-un-textbox
16 nov. 2005 à 16:59
16 nov. 2005 à 16:57
Dans un module
---------------
Sub maskDecimal(k As Integer)
'----- définition des variables
Dim c As String * 1
Dim s As String
'---- chaine de filtrage
s = ".," & vbBack
'---- formatage de la touche tapée
c = LCase(Chr(k))
'---- si c un caractere autorise, il s'affiche
If (k >= 48 And k <= 57) Or InStr(s, c) Then Exit Sub
'---- sinon pas d'affichage
k = 0
End Sub
tu met ca dans l'evenement OnKeyPress du textBox
-------------------------------------------------
Sub txt_KeyPress(KeyAscci as Integer)
Call maskDecimal(KeyAscci)
End sub
27 oct. 2004 à 12:27