[Vba-E]Raccourci clavier selon focus
Résolu/Fermé
A voir également:
- [Vba-E]Raccourci clavier selon focus
- Raccourci clavier word - Guide
- Raccourci clavier majuscule - Guide
- Raccourci clavier retourner écran - Guide
- Raccourci clavier qwerty azerty - Guide
- Creer un raccourci clavier - Guide
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
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
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