Contrôle de la saisie d'un nombre dans un textbox

0/5 (3 avis)

Snippet vu 6 684 fois - Téléchargée 33 fois

Contenu du snippet

Bonjour, Il s'agit d'une petite procédure pour contrôler la saisie dans un textbox.
Cette procédure limite donc la saisie au nombre avec ou sans virgule.

Les paramètres à passer sont
1 Le contrôle
2 Le code ascii saisi
3 le nombre de chiffre après la virgule

Voir code ci dessous.

Source / Exemple :


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
' On valide la saisie
Else
  KeyAscii = SaisieNombre(Text1, KeyAscii, 3)
End If
End Sub

' Dans un module 

Public Function SaisieNombre(ZonedeSaisie As Control, KeyAscii As Integer, deci As Long)
    ' Contrôle la saisie d'un nombre à virgule

    If KeyAscii > 32 And KeyAscii < 126 Then
        If KeyAscii = 44 Or KeyAscii = 46 Then             ' 44 => ,   46=> .
            If InStr(ZonedeSaisie.Text, ".") = 0 Then
                KeyAscii = 46
            Else
                KeyAscii = 0
            End If
        Else
            If KeyAscii = 45 Then
                If InStr(ZonedeSaisie, Chr$(KeyAscii)) = 0 Then
                    ZonedeSaisie = "-" + ZonedeSaisie  'Inverser le nombre , négatif , positif
                Else
                    ZonedeSaisie = Right(ZonedeSaisie, Len(ZonedeSaisie) - 1)
                End If
                SendKeys "{END}"
                KeyAscii = 0
            Else
                If InStr("1234567890-", Chr$(KeyAscii)) = 0 Then
                    KeyAscii = 0
                Else
                    If InStr(ZonedeSaisie.Text, ".") > 0 And KeyAscii = 46 Then KeyAscii = 0 ' Si le point existe, alors on retourne 0
                End If
            End If
        End If

        If Left(Right(ZonedeSaisie, deci + 1), 1) = "." Then
            KeyAscii = 0
        End If

    Else
    
        If KeyAscii = 8 Then ' BackSpace
        Else
            KeyAscii = 0
        End If
    End If

Conclusion :


Nota , vous pouvez remplacer le point par une virgule , il suffit de tester le code 44 au lieu du 46

A voir également

Ajouter un commentaire

Commentaires

FENETRES
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009
-
Après lecture de ton code et pour répondre à une demande du forum, j'ai été contraint d'ajouter un autre exemple.
SgtKabukinan
Messages postés
106
Date d'inscription
lundi 20 septembre 2004
Statut
Membre
Dernière intervention
23 janvier 2010
-
euh... oui bah je te donne plus simple ;)

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
SgtKabukinan
Messages postés
106
Date d'inscription
lundi 20 septembre 2004
Statut
Membre
Dernière intervention
23 janvier 2010
-
n'oublie pas qu'à chaque touche frappé tu passe en parametre le control !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.