Macro évènementielle copier coller

[océanne]

Bonjour Le Forum,

Je recherche après avoir copié une plage de cellule à ce qu’elle soit collée automatiquement (macro evenementielle) collée dans la première cellule sélectionnée par l’utilisateur….ceci tant que le « application.cutcopymode » reste actif.
Du coup je me suis essayé à la macros suivante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Application.CutCopyMode
Case Is = False
Exit Sub
Case Is = True
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Application.vbKeyReturn
'SendKeys "{ENTER}"
'Application.SendKeys ("^;{ENTREE}")
'SendKeys String:="%slc{enter}"
End Select
End Sub
….mais aucune de mes instruction de validation application.vbdeyreturn, 'SendKeys "{ENTER}",'Application.SendKeys ("^;{ENTREE}"), SendKeys String:="%slc{enter}" ne fonctionne.

Merci pour votre éclairage.
O .

 

[Paf]

Re : Macro évènementielle copier coller

bonjour,

si j'ai bien compris

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
    Exit Sub
Else
    Application.EnableEvents = False
    ActiveCell.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Application.EnableEvents = True
End If
End Sub

A+

 

[océanne]

Re : Macro évènementielle copier coller

merci PAF, c'est bien ça....j'ai même effacé la ligne Activecell...et ça marche aussi très bien sans.

Bonne fin de journée

O.

 

[Guest]

Re : Macro évènementielle copier coller

Bonjour,

On peut réduire encore:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode Then
        ActiveSheet.Paste
        Application.CutCopyMode = False
    End If
End Sub

Application.EnableEvents ne serait utile que s'il y a quelque chose dans WorkSheet_Change ou si l'on change la sélection dans Worksheet_SelectionChange
A+