Textbox_change et touche entrer (return)

Bonsoir,
Intercepte la touche "Entrer" (KeyCode = 13 )

'---------------
Const TouchePermise = "0123456789"
'__________________________________________

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Call AutreProcedure(TextBox3.Value)
End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(TouchePermise, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Sub AutreProcedure(Valeur)
MsgBox "TextBox3=" & Valeur & vbLf & "La touche ""Entrée"" a été appuyée", 64, "Ici on fait autre chose"
End Sub
'------------------------

--
Salutations
JJ


"JP" <jthillard@gmail.com> a écrit dans le message de news:
145d5aa7-760e-4f17-aac7-cd4cb5a04c03@googlegroups.com...
Bonjour,

J'ai dans un userform, un textbox3.
Je voudrai pouvoir taper des chiffres de 0 à 9 et que lorsque j'appuie sur la touche "Entrer" la procédure du
textbox3_change se lance.

Une piste?

Merci d'avance

JP

Salut Jacky,

J'ai légèrement modifier ton code, le voici:

Private Sub Textbox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyReturn Then
Msgbox " Chez moi, je fais ce que je peux" & ";-)"
End if

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

Merci

JP

Re..

J'ai légèrement modifier ton code,....

Msgbox " Chez moi, je fais ce que je veux, ou plutôt ce que veut mon épouse" & ";-))))"
L'esssentiel étant d'obtenir ce que tu souhaites..


--
Salutations
JJ


"JP" <jthillard@gmail.com> a écrit dans le message de news:
aea8ee35-4500-40d2-8264-5581df05ecec@googlegroups.com...
Salut Jacky,

J'ai légèrement modifier ton code, le voici:

Private Sub Textbox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyReturn Then
Msgbox " Chez moi, je fais ce que je peux" & ";-)"
End if

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

Merci

JP

merci pour la bonne humeur!

JP