Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

[VBA] Réinitialiser Application.OnKey

116 views
Skip to first unread message

HD

unread,
Apr 2, 2014, 10:04:20 AM4/2/14
to
Bonjour,


A l'ouverture d'un classeur j'ai mis en Workbook_Open la ligne :
Application.OnKey "{LEFT}", "VerslaGauche"
afin de lancer la macro VerslaGauche lorsque je vais vers la gauche via
la flèche du clavier.

Mon souci est que si je ferme le classeur en question et qu'un autre
classeur était ouvert, lorsque je vais vouloir aller sur la gauche via
la flèche du clavier Excel me réouvre le classeur pour exécuter la
macro... Si je met dans le Workbook_BeforeClose la ligne :
Application.OnKey "{LEFT}", ""
lorsque je vais appuyer sur la flèche gauche du clavier... il ne va rien
se passer alors que je voudrais aller sur la gauche ce qui doit
s'effectuer normalement.

Comment donc peut on réinitialiser une touche que l'on aurait paramétrer
?

Merci d'avance pour votre aide,

@+
HD

isabelle

unread,
Apr 2, 2014, 10:20:17 AM4/2/14
to
bonjour HD,

de souvenance les guillemet comme 2èm argument servent à désactiver la fonction.
essai:

Application.OnKey "{LEFT}"

isabelle

MichD

unread,
Apr 2, 2014, 10:24:00 AM4/2/14
to
Bonjour,

Utilise ces 2 procédures événementielles du classeur en question et
oublie Workbook_Open.

'----------------------------------------------
Private Sub Workbook_Activate()
Application.OnKey "{LEFT}", "VerslaGauche"
End Sub
'----------------------------------------------
Private Sub Workbook_Deactivate()
Application.OnKey "{LEFT}", ""
End Sub
'----------------------------------------------

Et dans un module standard, la macro "Vers la gauche".

La macro va s'exécuter seulement lorsque tu es dans ledit classeur.

MichD

unread,
Apr 2, 2014, 10:26:28 AM4/2/14
to
Bonjour Isabelle,

Sauf erreur, ces 2 lignes de code font la même chose!

Application.OnKey "{LEFT}"
OU
Application.OnKey "{LEFT}", ""

isabelle

unread,
Apr 2, 2014, 10:34:16 AM4/2/14
to
salut Denis,

extrait de l'aide "Application.OnKey, méthode"
___________________________________________________________________________
Cet exemple montre comment désactiver la combinaison de touches MAJ+CTRL+DROITE.

Visual Basic pour Applications
Application.OnKey "+^{RIGHT}", ""

Cet exemple montre comment rétablir la signification normale de la combinaison
de touches MAJ+CTRL+DROITE.

Visual Basic pour Applications
Application.OnKey "+^{RIGHT}"

___________________________________________________________________________

isabelle

HD

unread,
Apr 3, 2014, 2:35:49 AM4/3/14
to
Ma macro "Vers la gauche" est bien dans un module standard. Mais lorsque
je quitte le classeur, si j'appuie sur la flèche gauche {LEFT} alors le
curseur ne va plus sur la gauche...


Application.OnKey "{LEFT}", ""
ne réinitialise donc pas la touche de la flèche gauche... elle lui
enlève tout effet.

@+
HD

HD

unread,
Apr 3, 2014, 2:38:43 AM4/3/14
to
> Ma macro "Vers la gauche" est bien dans un module standard. Mais
> lorsque je quitte le classeur, si j'appuie sur la flèche gauche {LEFT}
> alors le curseur ne va plus sur la gauche...
>
> Application.OnKey "{LEFT}", ""
> ne réinitialise donc pas la touche de la flèche gauche... elle lui
> enlève tout effet.

Petite précision... Ce scénario posant problème se produit lorsque le
classeur avec ces macros est ouvert alors qu'un autre classeur est
également ouvert. Si l'on ferme le classeur avec les macros alors sur le
classeur qui était également ouvert la flèche gauche ne fonctionne plus.
Par contre, sur d'autres applications (word ou autres) cela fonctionne.

@+
HD

DanielCo

unread,
Apr 3, 2014, 4:08:06 AM4/3/14
to
Bonjour,

Application.OnKey "{LEFT}"

Daniel

HD

unread,
Apr 3, 2014, 6:05:19 AM4/3/14
to
>>> '----------------------------------------------
>>> Private Sub Workbook_Deactivate()
>>> Application.OnKey "{LEFT}", ""
>>> End Sub
>>> '----------------------------------------------
> Application.OnKey "{LEFT}"
Effectivement, cela fonctionne bien. Il y'a donc une différence entre
Application.OnKey "{LEFT}"
et
Application.OnKey "{LEFT}", ""

@+
HD

MichD

unread,
Apr 3, 2014, 7:07:57 AM4/3/14
to

Des coins de ma mémoire qui ont besoin d'être rafraichis!
Mes excuses Isabelle.

Salutations.

DanielCo

unread,
Apr 3, 2014, 1:08:49 PM4/3/14
to
Application.OnKey "{LEFT}", ""
inactive la touche.
Daniel
0 new messages