Erreur avec before double click
Résolu
Anthelm
Messages postés
202
Statut
Membre
-
Anthelm Messages postés 202 Statut Membre -
Anthelm Messages postés 202 Statut Membre -
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"...
Une idée svp? je sèche...
EDIT : Ajout des balises de code
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
3 réponses
-
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)
-
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é. -
