Utilisation de l'évènement Worksheet_BeforeDoubleClick

Bonjour,
Je souhaite associer sous Excel le double-clique à un copier-coller.
J'ai lu qu'il fallait utiliser l'évènement Worksheet_BeforeDoubleClick mais je n'arrive pas à le mettre en œuvre.
Mon cas est simple:
Sur un 1er onglet j'ai un tableau, avec en colonne D l'âge.
Je souhaite qu'en double-cliquant sur l'âge, la valeur soit copiée-collée dans le 2ème onglet, en cellule B2.
Je souhaite que cette fonctionnalité soit active pour toutes les lignes de la colonne D de mon tableau.
Si quelqu'un peut m'aider…
Je mets en PJ mon fichier.
Merci

Code:

---

Traget.Copy Worksheets("Autre feuille").Range("B2")

---

En remplaçant bien sûr "Autre feuille" par le nom de ta feuille de destination.

Bonjour

Adaptation à ton tableau renommé Bd
'dans la fenêtre de codes de Feuil1 (clic bouton droit sur le nom Feuil1 puis sélection de Visualiser le code)

Code:

---

1 2 3

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean) If Not Intersect(R, [Bd[Age]]) Is Nothing Then Feuil2.[B2] = R: R(1, 0).Select End Sub

---

'R(1,0).Select pour un effet bascule (reprise immédiate possible)

Merci OrDonc.
Ça me va bien, mais je souhaite rester sur Feuil2 et ne pas revenir sur Feuil1.
Comment faire?

Bonjour,
Exemple Copie en cellule B2 de la feuille nommée Feuil2 de la valeur d'une cellule sur laquelle on a fait un double clic à condition que celui-ci ait eu lieu dans la colonne dont l'étiquette est Age du tableau structuré se trouvant sur la feuille où à eu lieu l'événement

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Me.ListObjects(1).ListColumns("Age").DataBodyRange) Is Nothing Then Worksheets("Feuil2").Range("B2").Value = Target Cancel = True End If End Sub

---

Re

Il suffit de remplacer R(1,0).Select par Application.Goto Feuil2.[B2] (entre autres).
Remarque : en changeant de cellule, la valeur de la variable Cancel (False ou True) importe peu.

Merci de votre aide,
ça fonctionne