• Home
 · 
• Miscellaneous
 · 
• This small proram allow user to write only numeric values you call call this function in keypress e

This small proram allow user to write only numeric values you call call this function in keypress e

This small proram allow user to write only numeric values you call call this function in keypress event : Example : Keyascii=Numerique

Rate This small proram allow user to write only numeric values you call call this function in keypress e

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim Tableau
If Caractere = 8 Then
    Numerique = Caractere
    Exit Function
End If
If IsNumeric(Chr(Caractere)) Or Chr(Caractere) = "." Then
If Chr(Caractere) = "." And Entier = True Then
    Tableau = Split(Texte, ".")
    If UBound(Tableau) = 1 Then
    Numerique = 0
    Exit Function
    End If
Else
    If Chr(Caractere) = "." Then Numerique = 0: Exit Function

End If
Else
Numerique = 0
Exit Function
End If
Numerique = Caractere
End Function