Erreur de clic droit sur l'événement

Question

L'événement de clic droit que j'ai créé affiche un message d'erreur "La déclaration de procédure ne correspond pas à la description d'un événement ou d'une procédure portant le même nom".

Mon but est de faire un clic droit sur une cellule et d'avoir le compte d'une colonne d'une autre feuille entrée dans la cellule cible.

Quelle est mon erreur qui me manque?

Sub Worksheet_BeforeRightClick(ByVal Target As Range) 
Dim wb As Workbook 
Dim i As Long 

Set wb = Workbooks("Calc.xlsm") 

EventState = Application.EnableEvents 
Application.EnableEvents = True 

Target.Address = Application.count(wb.Sheets("Carrier").Range("O:O")) 


End Sub 

Answer 1

Le message d'erreur est assez clair. Le prototype de votre gestionnaire d'événements ne correspond pas à ce qu'Excel veut qu'il soit. le changer en:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 

Vous ne pouvez pas modifier la signature des gestionnaires d'événements.