N'avoir que des chiffres dans une textbox ?!

[Mattharm]

Bonjour à tous,

Y a t il une fonction pour ne permettr à un utilisateur de mettre uniquement des chiffres dans une textbox ???

Je me souviens qu'en pascal c'est possible grace à un code mais je ne me souviens plus ?

Merci à tous,

Matthieu

 

[Pierrot93]

Re : N'avoir que des chiffres dans une textbox ?!

Bonjour Matthieu,

essaye le code ci dessous :

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

bon dimanche
@+

 

[Mattharm]

Re : N'avoir que des chiffres dans une textbox ?!

Merci pierrot ca marche nickel 😉🙂

 

[myDearFriend!]

Re : N'avoir que des chiffres dans une textbox ?!

Bonjour Matthieu, Pierrot93,

Sur la même base que Pierrot93, tu peux utiliser ce code dans l'évènement KeyPress() de ton TextBox :

[SIZE=2][COLOR=NAVY]Private Sub[/COLOR] TextBox1_KeyPress([COLOR=NAVY]ByVal[/COLOR] KeyAscii [COLOR=NAVY]As[/COLOR] MSForms.ReturnInteger)
    [COLOR=GREEN]'autorise uniquement les touches numériques[/COLOR]
    [COLOR=NAVY]Select Case[/COLOR] KeyAscii
    [COLOR=NAVY]Case Is[/COLOR] < 48, [COLOR=NAVY]Is[/COLOR] > 57
        KeyAscii = 0
    [COLOR=NAVY]End Select
End Sub[/COLOR][/SIZE]

Cordialement,