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
13
Affichages
317
Réponses
15
Affichages
638

Statistiques des forums

Discussions
312 842
Messages
2 092 746
Membres
105 519
dernier inscrit
faivre-roussel.ivan@orang