OVH Cloud OVH Cloud

Programmation touche

8 réponses
Avatar
Xavier- Muret TRI
Est-il possible de lancer une macro en appuyant sur une touche, par exemple
la touche Espace du clavier?

--
Le président
Xavier Chourreau
president@muret-triathlon.com
Site club: http://www.muret-triathlon.com
Site de la ligue: http://www.trimidipyrenees.com

8 réponses

Avatar
michdenis
Bonsoir Xavier,

Essaie ceci : Exécute la macro "Touche" et tu pourras appeler la macro "toto" par le raccourci clavier Ctrl + m

'-------------------
Sub Touche()

Application.OnKey "^m", "toto"

End Sub
'-------------------
Sub toto()
MsgBox "bonsoir"
End Sub
'-------------------


Salutations!



"Xavier- Muret TRI" a écrit dans le message de
news:cc238v$tf9$
Est-il possible de lancer une macro en appuyant sur une touche, par exemple
la touche Espace du clavier?

--
Le président
Xavier Chourreau

Site club: http://www.muret-triathlon.com
Site de la ligue: http://www.trimidipyrenees.com
Avatar
Xavier- Muret TRI
C'est ok.
Mais j'ai essayé avec Application.OnKey "space", "toto" et Application.OnKey
"espace", "toto" pour programmé la touche espace mais :((.
Y a t il un moyen de connaître tous les codes des touches??
Merci encore



--
Le président
Xavier Chourreau

Site club: http://www.muret-triathlon.com
Site de la ligue: http://www.trimidipyrenees.com
"michdenis" a écrit dans le message de
news:
Bonsoir Xavier,

Essaie ceci : Exécute la macro "Touche" et tu pourras appeler la macro
"toto" par le raccourci clavier Ctrl + m


'-------------------
Sub Touche()

Application.OnKey "^m", "toto"

End Sub
'-------------------
Sub toto()
MsgBox "bonsoir"
End Sub
'-------------------


Salutations!



"Xavier- Muret TRI" a écrit dans le message
de

news:cc238v$tf9$
Est-il possible de lancer une macro en appuyant sur une touche, par
exemple

la touche Espace du clavier?

--
Le président
Xavier Chourreau

Site club: http://www.muret-triathlon.com
Site de la ligue: http://www.trimidipyrenees.com





Avatar
Alain CROS
Bonjour.

Sub Touche()
Application.OnKey " ", "toto"
End Sub

Sub NonTouche()
Application.OnKey " ", ""
End Sub

Sub toto()
MsgBox "bonsoir"
End Sub

Y a t il un moyen de connaître tous les codes des touches??


Voir l'aide sur OnKey.

Alain CROS

"Xavier- Muret TRI" a écrit dans le message de news: cc5p0t$ht7$
C'est ok.
Mais j'ai essayé avec Application.OnKey "space", "toto" et Application.OnKey
"espace", "toto" pour programmé la touche espace mais :((.
Y a t il un moyen de connaître tous les codes des touches??
Merci encore



Avatar
Xavier- Muret TRI
J'ai regardé l'aide d'Excel : rien
J'ai regardé l'aide de VB6: rien
J'ai feuilleté mes quelques livres de programmation: rien
Rien sur ONKEY
J'ai donc besoin de l'aide du forum pour avoir l'aide sur Onkey ;))

Merci
--
Le président
Xavier Chourreau

Site club: http://www.muret-triathlon.com
Site de la ligue: http://www.trimidipyrenees.com
"Alain CROS" a écrit dans le message de
news:%23i0u8%
Bonjour.

Sub Touche()
Application.OnKey " ", "toto"
End Sub

Sub NonTouche()
Application.OnKey " ", ""
End Sub

Sub toto()
MsgBox "bonsoir"
End Sub

Y a t il un moyen de connaître tous les codes des touches??


Voir l'aide sur OnKey.

Alain CROS

"Xavier- Muret TRI" a écrit dans le message
de news: cc5p0t$ht7$

C'est ok.
Mais j'ai essayé avec Application.OnKey "space", "toto" et
Application.OnKey


"espace", "toto" pour programmé la touche espace mais :((.
Y a t il un moyen de connaître tous les codes des touches??
Merci encore







Avatar
JpPradier
Bonjour Xavier

Tu ouvres un module VBA, tu tapes ONKEY, tu selectionnes ce mot et tu appuies sur la touche F1. Mais
effectivement, il n'y a rien sur la barre espace.

j-p
Avatar
Philippe.R
Bonjour Xavier,
Ceci te permet il d'avancer ?
http://www.excelabo.net/xl/macros.php#combtouche
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Xavier- Muret TRI" a écrit dans le message de
news:cc8fmg$p67$
J'ai regardé l'aide d'Excel : rien
J'ai regardé l'aide de VB6: rien
J'ai feuilleté mes quelques livres de programmation: rien
Rien sur ONKEY
J'ai donc besoin de l'aide du forum pour avoir l'aide sur Onkey ;))

Merci
--
Le président
Xavier Chourreau

Site club: http://www.muret-triathlon.com
Site de la ligue: http://www.trimidipyrenees.com
"Alain CROS" a écrit dans le message de
news:%23i0u8%
Bonjour.

Sub Touche()
Application.OnKey " ", "toto"
End Sub

Sub NonTouche()
Application.OnKey " ", ""
End Sub

Sub toto()
MsgBox "bonsoir"
End Sub

Y a t il un moyen de connaître tous les codes des touches??


Voir l'aide sur OnKey.

Alain CROS

"Xavier- Muret TRI" a écrit dans le message
de news: cc5p0t$ht7$

C'est ok.
Mais j'ai essayé avec Application.OnKey "space", "toto" et
Application.OnKey


"espace", "toto" pour programmé la touche espace mais :((.
Y a t il un moyen de connaître tous les codes des touches??
Merci encore











Avatar
Misange
tape "key" dans le moteur d'excelabo, tu as 4 réponses sur les keycodes.
Ca devrait t'aider.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


J'ai regardé l'aide d'Excel : rien
J'ai regardé l'aide de VB6: rien
J'ai feuilleté mes quelques livres de programmation: rien
Rien sur ONKEY
J'ai donc besoin de l'aide du forum pour avoir l'aide sur Onkey ;))

Merci


Avatar
Xavier- Muret TRI
Merci tout le monde.
Je vous tiens au courant

--
Le président
Xavier Chourreau

Site club: http://www.muret-triathlon.com
Site de la ligue: http://www.trimidipyrenees.com
"Misange" a écrit dans le message de
news:%
tape "key" dans le moteur d'excelabo, tu as 4 réponses sur les keycodes.
Ca devrait t'aider.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


J'ai regardé l'aide d'Excel : rien
J'ai regardé l'aide de VB6: rien
J'ai feuilleté mes quelques livres de programmation: rien
Rien sur ONKEY
J'ai donc besoin de l'aide du forum pour avoir l'aide sur Onkey ;))

Merci