Discussion :

[Granier73]

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

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[OrDonc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Granier73]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[OrDonc]

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.