Mettre une TextBox en format numerique

[Eric]

Bonjour a tous,

Voici ma question :
Est il possible de limiter une TextBox en format numerique ?
Si oui comment ?

Merci pour vos reponses

 

[Bricofire]

Bonsoir eric, 🙂

En absence d'autres précisions, on considère que ton textbox est dans un USF et que l'entrée est validée par un Command button (cmd1).


Option Explicit

Private Sub Cmd1_Click()
Dim TxVal As Single

If IsNumeric(TextBox1.Value) = False Then
TextBox1.Value = '' 'teste que l'entrée est bien un nombre en structure
MsgBox 'saisissez un nombre' 'sinon met un message et sort
Exit Sub
End If
TxVal = Val(TextBox1.Value) 'convertit la valeur du textbox en valeur numérique
MsgBox VarType(TxVal) ' t'affiche le code du type de variable obtenue
' vois l'aide vba à Vartype pour la liste...

End Sub

(Les apostrophes sont suivies par des commentaires)

Bonne nuit,

Bfr