Pointer une cellule pour la coller "plus loin"

[evaryste]

Bonjour,voici ma préoccupation du moment: Je pointe et je clique une seule fois sur une cellule choisie parmi plusieurs (par exemple A1) et son contenu apparaît automatiquement dans la cellule B12... Comment réaliser cela sous excel?
Merci pour vos réponses à venir,
cordialement.
Phil.

 

[natorp]

Re : Pointer une cellule pour la coller "plus loin"

Bjr Phil

Par double-clic sur la cellule :

1ère étape :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Macro1
End Sub

2ème étape la macro :

Sub Macro1()
    ActiveCell.Select
    Selection.Copy
    Range("B12").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

cordialement, Gérard