textbox numerique

[apdf1]

Bonjour,

J'ai un USF, comprenant une TextBox dans laquelle je renseigne un N° Tél.

Je suis à la recherche d' un code pour forcer un texte numérique dans un textBox avec message.

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement
Max

 

[Pierrot93]

Re : textbox numerique

Bonjour,

regarde ceci, à utiliser dans le module de l'usf, si cela peut t'aider à avancer :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

bon après midi
@+

 

[Guest]

Re : textbox numerique

Bonjour,

On a traité un sujet semblable ce matin: https://www.excel-downloads.com/thr...e-caractere-virugule-dans-une-textbox.173227/

A+

 

[kiki29]

Re : textbox numerique

APDF1 : Salut, avec le multipost difficile de te suivre ....

Option Explicit
 
Const entrees_entieres_permises = "0123456789"
 
'   Modifier propriété MaxLength TextBox6 : 14
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox6.Text = Format(TextBox6.Text, "0# ## ## ## ##")
End Sub
 
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(entrees_entieres_permises, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox6_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Len(TextBox6.Text) = 10 Then TextBox6.Text = Format(TextBox6.Text, "0# ## ## ## ##")
End Sub

 

[apdf1]

Re : textbox numerique

Bonjour Kiki29

Je te remercie du Finistere au Morbillan y a pas loin

Merci et bonne soirée

@+
Max