J'ai dans un userform, un textbox3.
Je voudrai pouvoir taper des chiffres de 0 =E0 9 et que lorsque j'appuie su=
r la touche "Entrer" la proc=E9dure du textbox3_change se lance.
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" a écrit dans le message de news:
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
Bonsoir,
Intercepte la touche "Entrer" (KeyCode = 13 )
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.
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" a écrit dans le message de news:
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
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
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