Erreur avec before double click Résolu/Fermé

Question

Bonsoir, 

Cette macro marche avec "selection change", mais pas avec "before double click", je ne comprend pas pourquoi!

J'ai "erreur de compilation, la déclaration de la procédure ne correspond pas à la description de l’événement ou de la procédure du même nom"...

Private Sub Worksheet_BeforeDoubleClick(Target As Range, cancel As Boolean)

cancel = True

If Not Intersect(Target, Range("Tableau1[Code]")) Is Nothing Then

If Worksheets("Données").Range("A1").Value = Target Then
        Worksheets("Données").Range("A1").Value = ""
        Else
Worksheets("Données").Range("A1").Value = Target.Value
End If
End If
End Sub


Une idée svp? je sèche...

EDIT : Ajout des balises de code

Configuration: Windows / Firefox 72.0

Anthelm · Answer

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
Cancel = True

If Not Intersect(target, Range("Tableau1[Code]")) Is Nothing Then

    If Worksheets("Données").Range("A1").Value = target Then
        Worksheets("Données").Range("A1").Value = ""
        Else
Worksheets("Données").Range("A1").Value = target.Value
End If
End If
End Sub

J'avais oublié Byval, désolé.

jordane45 · Answer

Bonjour,

Tu n'as pas respécter la déclaration de la fonction
remplace par :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)

Anthelm · Answer

Merci beaucoup! oui ça fonctionne!

Bonne soirée!

Erreur avec before double click

3 réponses

Discussions similaires