Copier / coller

[Ronan Q]

Salut à vous Forumeuses et forumeurs,
Si quelqu’un a une idée pour résoudre mon problème je lui en serais reconnaissant.
Je cherche une macro ou un code pour réaliser l’opération suivante. Quand je double clic dans une cellule, je voudrais faire un copier des infos des 5 colonnes situées à gauche de la cellule ou j’ai double-cliqué, vers la feuille 2 en A1 : E1.
Si quelqu'un a une idée.
Ronan.

 

[nat54]

Re : Copier / coller

Tourne toi du côté des macros évènementielles (change)
avec action après double-clic

Une question supplémentaire
Disons que tu cliques en F4,
tu veux copier-coller A4:A??

 

[pierrejean]

Re : Copier / coller

bonjour Ronan
salut nat54

teste cela

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox (Cells(Target.Row, Target.Column - 6).Address)
Range(Cells(Target.Row, Target.Column - 1).Address & ":" & Cells(Target.Row, Target.Column - 5).Address).Copy Destination:=Sheets("Feuil2").Range("A1:E1")
End Sub

 

[pierrejean]

Re : Copier / coller

bonjour Ronan
salut nat54

teste cela

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Cells(Target.Row, Target.Column - 1).Address & ":" & Cells(Target.Row, Target.Column - 5).Address).Copy Destination:=Sheets("Feuil2").Range("A1:E1")
End Sub

 

[Ronan Q]

Re : Copier / coller

Merci à vous.
Tout marche .
Ronan