copie de cellule sur une autre feuille

[bpol]

bonsoir,
un oubli:

qui pourrait me rappeler comment on fait pour quand je fais un double clic sur une cellule elle se copie à un endroit désigné

merci bonne soirée
bpol

 

[SergiO]

Re : copie de cellule sur une autre feuille

Bonsoir bpol,

un exemple : la cellule double-cliquée se copie en A1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Cells(1, 1) = Target
End Sub

@+

 

[bpol]

Re : copie de cellule sur une autre feuille

mille excuses,
je viens de retrouver mon exemple :

A placer dans l'evenement de la feuille1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
dim sel as range
Set Sel = Range("b5:d15")'plage a définir
If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
Sheets("feuil2").Cells(1, 1) = ActiveCell.Value
sheets(“classement”).select
End If
End Sub


encore merci
bpol