Public Function permis(touche As Integer, txt
As String) As Integer
Dim decim As String
Dim ndecim As Integer
decim = Mid(1 / 2, 2, 1)
Select Case touche
Case 48 To 57
permis = 1
Case Asc(decim)
If InStr(1, txt, decim, vbTextCompare) >= 1 Then
permis = 0
Else
permis = 1
End If
Case vbKeyBack And vbKeyClear
permis = 1
Case Else
permis = 0
End Select
End Function
cette fonction a pour but:
- de filtrer la saisie dans un textbox
Explication:
-seuls les caractères numériques et le caractère décimal
sont permis
-suivant la configuration de l'ordinateur (américain:
"." ascii 44 ou français: "," ascii 46)
le caractère décimal est différent. donc, cette
fonction est aussi utile pour
choisir le caractère selon la configuration </BR>
-un seul caractère décimal est autorisé à chaque saisie,
exemple: 234,,3
- les touches effacement et effacement arrière sont activées
-les touches alphabétiques et opérateurs "+ - * /
" sont désactivées
Son fonctionnement:
placer ce code dans un module ou module de feuille.
dans l'évenement keypress du textbox concerné,
If permis(keyascii,Text1.text) = 0 then
keyascii = 0
Elseif permis(keyascii,Text1.Text ) = 1 then
keyascii = 1
end if
|
|