[Vba-E]Raccourci clavier selon focus

Résolu/Fermé
Invite05 - 29 mai 2009 à 12:16
 Invite05 - 29 mai 2009 à 13:16
Bonjour,

Je voudrai lorsque mon focus est sur textbox1, textbox2 etc... et qu'on appuit sur fait F2, aide_Userform s'affiche. j'ai essayé de développer quelque chose mais ca ne marche pas :

Sub enter()
If textbox1,textbox2, textbox3.setfocus
Application.OnKey Key:="{F2}", procedure:="aide"

End Sub

Sub hello()
aide.show
End Sub

Une idée?
merci!

2 réponses

NicoDisso
Messages postés
230
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
22 août 2009
32
29 mai 2009 à 12:59
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
if KeyCode = 113 then aide.show
End Sub

ensuite si tu veux faire ca sur plusieurs controle qui appelle la meme procedure afin de pas avoir à doubler le code

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
call affiche_aide(keycode)
End Sub
Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
call affiche_aide(keycode)End Sub
Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
call affiche_aide(keycode)
End Sub

sub affiche_aide(keycode as MSForms.ReturnInteger)

if KeyCode = 113 then aide.show

end sub
3
Super ! Ca fonctionne !
Merci !
0