copie de cellule sur une autre feuille

bpol · 7 Août 2007

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 · 7 Août 2007

Re : copie de cellule sur une autre feuille

Bonsoir bpol,

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

Code:

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

@+

bpol · 7 Août 2007

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

copie de cellule sur une autre feuille

bpol

XLDnaute Impliqué

SergiO

XLDnaute Accro

bpol

XLDnaute Impliqué

Discussions similaires

copie de cellule sur une autre feuille

bpol

XLDnaute Impliqué

SergiO

XLDnaute Accro

bpol

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency