Erreur avec before double click
Résolu
Anthelm
Messages postés
198
Date d'inscription
Statut
Membre
Dernière intervention
-
Anthelm Messages postés 198 Date d'inscription Statut Membre Dernière intervention -
Anthelm Messages postés 198 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Erreur avec before double click
- Double ecran - Guide
- Whatsapp double sim - Guide
- Double driver - Télécharger - Pilotes & Matériel
- Double appel - Guide
- Double boot - Guide
3 réponses
Bonjour,
Tu n'as pas respécter la déclaration de la fonction
remplace par :
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é.
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é.
