Discussion :

[CaraLePoke]

Bonjour je cherche a faire une textbox ou l'utilisateur ne peut entrer que des chiffre.

J'ai trouvé ce bout de code sur le Net:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Asc("-")
        If InStr(1, Me.TextBox1.Text, "-") > 0 Or Me.TextBox1.SelStart > 0 Then
            KeyAscii = 0
        End If
    Case Asc(".")
        If InStr(1, Me.TextBox1.Text, ".") > 0 Then
            KeyAscii = 0
        End If
    Case Else
        KeyAscii = 0
End Select
End Sub

Seulement, je ner voit pas ou et comment l'appeler.
Si vous avez des sugestions, je suis preneur
Bonne journée!

[EngueEngue]

Prise de tête...
Dans ton textbox_change tu fais un if isnumber(cdbl(textbox)) then et fini

[CaraLePoke]

En fait j'ai trouvé...
il suffit de double cliquer sur le champs que l'on veut restreindre et ajouter ce code...
Merci quand même

[EngueEngue]

Prise de tête...
Dans ton textbox_change tu fais un if isnumber(cdbl(textbox)) then et fini

[CaraLePoke]

Ok, mais tu fait comment pour les négatifs et les float?
ça fonctionne avec un simple isnumeric ou tu t'en passes parceque c'est trop prise de tête?

[patricktoulon]

bonjour caralePoke

si tu fait une recherche dans les contributions tu trouvera comment on force un textbox a accepter que du numeric et comment on force un format du style telephonne ect......
recherche par mon pseudo dans les contribs
Au plaisir

Re
un petit exemple vite fait
code a mettre dans le module du userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
const val_numeric = "[0-9]"    'constante comportant uniquement des chiffres
Private Sub nomsdutextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
If Not ChrW(KeyAscii) Like val_numeric  Then KeyAscii = 0
end sub