|
Enclencher une procédure par le biais d'une touche de raccourci ... On veillera à ne pas définir de touches uniques mais plutôt une association de touche ... genre CTRL + f qui pour le code VBA donnera : Application.OnKey "{^f}", "NomDeLaMacro" | Touche | Code | | AIDE | {HELP} | | ARRÊT DÉFIL. | {SCROLLLOCK} | | BAS | {DOWN} | | De F1 à F15 | {F1} à {F15} | | DÉBUT | {HOME} | | DROITE | {RIGHT} | | ÉCHAP | {ESCAPE} ou {ESC} | | EFFACEMENT | {CLEAR} | | ENTRÉE (pavé numérique) | {ENTER} | | FIN | {END} | | GAUCHE | {LEFT} | | HAUT | {UP} | | INS | {INSERT} | | PAUSE | {BREAK} | | PG.PRÉC | {PGUP} | | PG.SUIV | {PGDN} | | RET.ARR | {BACKSPACE} ou {BS} | | RETOUR | {RETURN} | | SUPPRIMER ou SUPPR. | {DELETE} ou {DEL} | | TABULATION | {TAB} | | VERR. MAJ | {CAPSLOCK} | | VERR. NUM | {NUMLOCK} | | Pour combiner les touches avec | Placez le caractère ci-dessous avant le code de la touche | | ALT | % (signe de pourcentage) | | CTRL | ^ (signe d'insertion) | | MAJ | + (signe plus) |
Option Explicit
'Affecter un raccourci à la touche ECHAP
'"Essai" = nom de la macro à exécuter
Sub Affectation()
Application.OnKey "{ESCAPE}", "Essai"
End Sub
'Rétablir l'usage normal de la touche ECHAP
Sub Retablir()
Application.OnKey "{ESCAPE}", ""
End Sub
Sub Essai01()
[A1] = "zzzz"
End Sub
Veillez également à rétablir l'usage de la touche raccourci, auquel cas l'exemple de l'espace serait plutôt gênant à la longue ...
Date de création : 24/05/2005 - 19:24
Dernière modification : 25/05/2005 - 22:13
Catégorie : Divers
Page lue 3973 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1661
Membre en ligne: 0
Anonymes en ligne: 36
Haut 
