Application.Onkey - Activer/Désactiver

[pacoako]

Bonjour à tous!

J'ai un petit prob avec mon activation et désactivation de mes « Onkeys »

Dans le fond je veux simplement pouvoir activer/désactiver à n'importe quel moment ces touches avec les Sub DisableKeys et EnableKeys. Le prob que j'ai c'est lors de la réactivation.. j'obtient une erreur lorsque j'appuie sur n'importe quelle touche F1-2-3..etc... "Impossible de trouver la macro CHEMINDEMONFICHIER/MONFICHIER.xls{F1}'"

voici le code
:

Sub DisableKeys()

Application.OnKey "{F1}", ""
Application.OnKey "{F2}", ""
Application.OnKey "{F3}", ""
Application.OnKey "{F4}", ""
Application.OnKey "{F5}", ""
Application.OnKey "{F6}", ""
Application.OnKey "{F7}", ""
Application.OnKey "{F8}", ""
Application.OnKey "{F9}", ""
Application.OnKey "{F10}", ""
Application.OnKey "{F11}", ""
Application.OnKey "{F12}", ""

Application.OnKey "^{F1}", ""
Application.OnKey "^{F2}", ""
Application.OnKey "^{F3}", ""
Application.OnKey "^{F4}", ""
Application.OnKey "^{F5}", ""
Application.OnKey "^{F6}", ""
Application.OnKey "^{F7}", ""
Application.OnKey "^{F8}", ""
Application.OnKey "^{F9}", ""
Application.OnKey "^{F10}", ""
Application.OnKey "^{F11}", ""
Application.OnKey "^{F12}", ""

Application.OnKey "%{F1}", ""
Application.OnKey "%{F2}", ""
Application.OnKey "%{F3}", ""
Application.OnKey "%{F4}", ""
Application.OnKey "%{F5}", ""
Application.OnKey "%{F6}", ""
Application.OnKey "%{F7}", ""
Application.OnKey "%{F8}", ""
Application.OnKey "%{F9}", ""
Application.OnKey "%{F10}", ""
Application.OnKey "%{F11}", ""
Application.OnKey "%{F12}", ""

Application.OnKey "+{F1}", ""
Application.OnKey "+{F2}", ""
Application.OnKey "+{F3}", ""
Application.OnKey "+{F4}", ""
Application.OnKey "+{F5}", ""
Application.OnKey "+{F6}", ""
Application.OnKey "+{F7}", ""
Application.OnKey "+{F8}", ""
Application.OnKey "+{F9}", ""
Application.OnKey "+{F10}", ""
Application.OnKey "+{F11}", ""
Application.OnKey "+{F12}", ""

End Sub
Sub EnableKeys()

Application.OnKey "{F1}", "{F1}"
Application.OnKey "{F2}", "{F2}"
Application.OnKey "{F3}", "{F3}"
Application.OnKey "{F4}", "{F4}"
Application.OnKey "{F5}", "{F5}"
Application.OnKey "{F6}", "{F6}"
Application.OnKey "{F7}", "{F7}"
Application.OnKey "{F8}", "{F8}"
Application.OnKey "{F9}", "{F9}"
Application.OnKey "{F10}", "{F10}"
Application.OnKey "{F11}", "{F11}"
Application.OnKey "{F12}", "{F12}"

Application.OnKey "^{F1}", "^{F1}"
Application.OnKey "^{F2}", "^{F2}"
Application.OnKey "^{F3}", "^{F3}"
Application.OnKey "^{F4}", "^{F4}"
Application.OnKey "^{F5}", "^{F5}"
Application.OnKey "^{F6}", "^{F6}"
Application.OnKey "^{F7}", "^{F7}"
Application.OnKey "^{F8}", "^{F8}"
Application.OnKey "^{F9}", "^{F9}"
Application.OnKey "^{F10}", "^{F10}"
Application.OnKey "^{F11}", "^{F11}"
Application.OnKey "^{F12}", "^{F12}"

Application.OnKey "%{F1}", "%{F1}"
Application.OnKey "%{F2}", "%{F2}"
Application.OnKey "%{F3}", "%{F3}"
Application.OnKey "%{F4}", "%{F4}"
Application.OnKey "%{F5}", "%{F5}"
Application.OnKey "%{F6}", "%{F6}"
Application.OnKey "%{F7}", "%{F7}"
Application.OnKey "%{F8}", "%{F8}"
Application.OnKey "%{F9}", "%{F9}"
Application.OnKey "%{F10}", "%{F10}"
Application.OnKey "%{F11}", "%{F11}"
Application.OnKey "%{F12}", "%{F12}"

Application.OnKey "+{F1}", "+{F1}"
Application.OnKey "+{F2}", "+{F2}"
Application.OnKey "+{F3}", "+{F3}"
Application.OnKey "+{F4}", "+{F4}"
Application.OnKey "+{F5}", "+{F5}"
Application.OnKey "+{F6}", "+{F6}"
Application.OnKey "+{F7}", "+{F7}"
Application.OnKey "+{F8}", "+{F8}"
Application.OnKey "+{F9}", "+{F9}"
Application.OnKey "+{F10}", "+{F10}"
Application.OnKey "+{F11}", "+{F11}"
Application.OnKey "+{F12}", "+{F12}"

End Sub

Merci d'avance Exceldownloadiens! A++

 

[job75]

Re : Application.Onkey - Activer/Désactiver

Bonsoir pacoako,

Pour réactiver F1, écrire simplement :

Application.OnKey "{F1}"

A+

Edition : par ailleurs, pour travailler à chaque fois de F1 à F12, ce serait plus simple de faire une boucle
For i = 1 To 12 suivie de "{F" & i & "}"

 

[pacoako]

Re : Application.Onkey - Activer/Désactiver

Bonsoir pacoako,

Pour réactiver F1, écrire simplement :

Application.OnKey "{F1}"

A+

Edition : par ailleurs, pour travailler à chaque fois de F1 à F12, ce serait plus simple de faire une boucle
For i = 1 To 12 suivie de "{F" & i & "}"

Awww! C'était simplement ça!! =))) Merci job45! tu es tjrs d'une très grande aide!

A++