Discussion :

[lucazzo]

Bonjour,

Comment détécter une touche de clavier enfoncée sur une feuille excel (et non pas sur une userForm) mais sans perdre la fonctionnalité de la touche ??

Par exemple, je désire savoir quand un utilisateur tape la touche "Del" mais que l'utilisateur puisse quand même utiliser cette fonction (c'est à dire de deleter..)

Merci pour votre aide.

[fring]

Bonjour,

Il n'y a pas d'événement KeyPress pour une feuille mais il y a moyen de bricoler cet événement via l'API GetAsyncKeyState

Dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Sub test_touche_del()
If GetAsyncKeyState(46) <> 0 Then '<-- 46 correspond au KeyCode de la touche Delete
MsgBox "La touche DELETE a été utilisée"
End If
End Sub

et dans l'événement Change de la feuille concernée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
test_touche_del
End Sub

[lucazzo]

Merci pour vos réponses.

Lorsque j'insère ta première partie de code dans mon module, il me dit : Compile error : Only comments may appear after End Sub...
Ou dois-je le placer exactement ?

[fring]

Tu l'insères où tu veux mais cette ligne ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

doit impérativement se trouver en tête de module.

Pour être certain, tu copies mon code tel quel dans un nouveau module

[lucazzo]

Effectivement, ça marche mieux lorsque je le place en début de code !

Par contre, lorsque je supprime un objet de ma feuille Excel, il me supprime mais sans m'afficher le messagebox. Par contre, si je me trouve dans une cellule et que je clique sur la touche Del, il m'affiche le message...

Tu sais pour quelle raison ?

[fring]

oui c'est normal, les objets n'entrent pas en ligne de compte dans l'événement Worksheet_Change.
Par contre les objets acceptent l'événement KeyPress, il faudra donc jongler avec les deux événements.

Pour gérer un événement sur tous tes objets en évitant de taper le code dans chaque objet, voir du côté des Modules de Classe

[lucazzo]

Ah voilà.. ça, je ne le savais pas !!
Pourrais-tu, si tu as 5 minutes, me donner un exemple, stp ?
Merci bcp pour ton aide..

Ah mais attend.. je crois qu'il y a eu un malentendu. Quand je parle d'objet, je ne veux pas parler de bouton, image, etc... Moi je disais "objet" dans le sens fichier externe (en fesant "insert -> object..")

Est-ce bien correct ? On peut aussi avoir l'évenement KeyPress sur ces objets là ?

[fring]

A ma connaissance non et je n'ai pas de solution, désolé.

[lucazzo]

Bon ben très bien.. une fois de plus, je me rend compte que Excel peut être très large comme très limité sur certains points !!

Merci en tout cas pour ton aide.. c'est sympa !

[fring]

Ne perdons pas de vue qu'Excel, à la base..., est un tableur permettant d'effectuer des calculs, il ne faut pas s'étonner que si on lui demande de faire des frites, celles-ci ne seront pas forcément cuites à point