Mettre une TextBox en format numerique

Eric · 29 Octobre 2005

Bonjour a tous,

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

Merci pour vos reponses

Bricofire · 30 Octobre 2005

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

Mettre une TextBox en format numerique

Eric

Guest

Bricofire

XLDnaute Impliqué

Discussions similaires