rendre temporairement un raccourcis clavier inactif

[Willy]

Bonjour à toutes et à tous,
Peut t'on rendre inactif certains raccourcis clavier ?

En fait je souhaiterai lorsque par exemple je suis dans la feuil2
rendre inactifs les raccourcis suivants :
CTRL+PG.SUIV passer à la feuille suivante dans le classeur
CTRL+PG.PRÉC passer à la feuille précédente dans le classeur

et les rendre à nouveau actifs dans la feuil1.

Merci de votre aide
Et bon W-E
Willy

 

[Tom]

Bonjour Willy,

Depuis l'année dernière que je découvre ce forum SUPER et que je commence du VBA, nombre de fois que je bénéficie des trucs existants dans les anciennes discussions ou directement sur question.

A mon tour j'essai de contribuer ma petite part pour répondre à ta question.

J'ai créé 2 macros dont 1 pour désactiver les fonctions normales des touches et un 2ème pour réaffecter leurs fonctions normale.


Sub Désactiver_Touches_Fonctions()
Application.OnKey "^{PGUP}", ""
Application.OnKey "^{PGDN}", ""
End Sub

Sub Réaffecter_Touches_Fonctions()
Application.OnKey "^{PGUP}"
Application.OnKey "^{PGDN}"
End Sub

Ensuite, les 2 macros sont placés respectivements dans:


Private Sub Worksheet_Activate()
Désactiver_Touches_Fonctions
End Sub

Private Sub Worksheet_Deactivate()
Réaffecter_Touches_Fonctions
End Sub


Normalement, ça doit marcher.


A+