interception de la touche "backspace"

Bonjour !

'Brel Patrice' nous a écrit ...

Je souhaiterais empêcher l'utilisation de la touche "backspace" lors d'un
travail dans un document déterminé. Je ne suis donc pas en mode formulaire et
je travaille bien dans le document et non sur des objets (textBox,
CommandButton...)

J'ai intercepté la touche "delete"

Sub editclear()
MsgBox ("ff")
End Sub

et je voudrais en faire autant our la touche "backspace"

Exécutez cette macro une fois :

Sub DétournerBackspace()
CustomizationContext = ActiveDocument ' **
KeyBindings.Add _
KeyCategory:=wdKeyCategoryMacro, _
Command:="editclear", _
KeyCode:=wdKeyBackspace
End Sub

Backspace exécutera alors aussi votre 'editclear'

** Il est conseillé de ne personnaliser qu'un document car ce genre
de manip dans l'application (Normal.dot) et c'est vite l'enfer !!!!

C'est bon ?

Anacoluthe
« Faut-il que le libéralisme aille jusqu'à interdire
d'interdire qu'on interdise ? »
- Pierre DEHAYE

Merci, cette procédure répond encore davantage à ce que je souhatais. La
conjonction backspace/delete est une très bonne idée. J'avoue qu'il m"était
difficile de conceptualiser les paramètres de cette fonction "keybindings".
Encore merci.
--
Brel Patrice

Bonjour !

'Brel Patrice' nous a écrit ...

Je souhaiterais empêcher l'utilisation de la touche "backspace" lors d'un
travail dans un document déterminé. Je ne suis donc pas en mode formulaire et
je travaille bien dans le document et non sur des objets (textBox,
CommandButton...)

J'ai intercepté la touche "delete"

Sub editclear()
MsgBox ("ff")
End Sub

et je voudrais en faire autant our la touche "backspace"

Exécutez cette macro une fois :

Sub DétournerBackspace()
CustomizationContext = ActiveDocument ' **
KeyBindings.Add _
KeyCategory:=wdKeyCategoryMacro, _
Command:="editclear", _
KeyCode:=wdKeyBackspace
End Sub

Backspace exécutera alors aussi votre 'editclear'

** Il est conseillé de ne personnaliser qu'un document car ce genre
de manip dans l'application (Normal.dot) et c'est vite l'enfer !!!!

C'est bon ?

Anacoluthe
« Faut-il que le libéralisme aille jusqu'à interdire
d'interdire qu'on interdise ? »
- Pierre DEHAYE