Erreur avec before double click [Résolu]

Signaler
Messages postés
185
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
21 juin 2020
-
Messages postés
185
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
21 juin 2020
-
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

3 réponses

Messages postés
30361
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
28 novembre 2020
3 032
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)

Messages postés
185
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
21 juin 2020
1
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é.
Messages postés
185
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
21 juin 2020
1
Merci beaucoup! oui ça fonctionne!

Bonne soirée!