Mettre une TextBox en format numerique

E

Eric

Guest
Bonjour a tous,

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

Merci pour vos reponses
 

Bricofire

XLDnaute Impliqué
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
 

Discussions similaires

Réponses
4
Affichages
456
Réponses
8
Affichages
289
Réponses
3
Affichages
343

Statistiques des forums

Discussions
300 793
Messages
1 987 229
Membres
209 744
dernier inscrit
nldurand