OnKey

[gerard.marcy]

Bonjour à tous,

Je viens solliciter votre aide pour faire que :

quand j'appuie sur Entrée (pavé numérique), le sub "Worksheet_BeforeDoubleClick(target, 0)" se lance.

alors j'ai écrit cela :


mais à l'éxécution tout ce que j'obtiens c'est :



Quelqu'un peut-il m'expliquer pourquoi ça ne fonctionne pas ?

merci d'avance

 

[Dranreb]

Re : OnKey

Bonjour.
D'abord parce que la procédure est Private, ensuite même si elle était Public elle en deviendrait une méthode du module de la feuille comme pour tout module de n'importe quelle autre sorte qu'un module ordinaire.

Edit: Bonjour Pierrot93

 

[Pierrot93]

Re : OnKey

Bonjour,

regarde peut être ceci, dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Application.OnKey "{ENTER}", "test"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{ENTER}"
End Sub

dans un module standard :

Option Explicit
Sub test()
Feuil1.Worksheet_BeforeDoubleClick ActiveCell, True
End Sub

dans le module de la feuille :

Option Explicit
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "ok"
End Sub

bon après midi
@+

Edition : bonjour Bernard
2ème édition : modification de l'événement "beforeclose"

 

[gerard.marcy]

Re : OnKey

Merci beaucoup Pierrot93 !

Je vais essayer tout ça...
je te tiens au courant

 

[gerard.marcy]

Re : OnKey

Bonjour Pierrot93,

Merci pour ton aide !
J'ai saisi tout ça dans mon code VB en l'adaptant à mes besoins évidemment : Nickel ! c'est exactement ce que je voulais.

bonne journée