Copier coller avec une macros

[teodormircea]

bonjour

Je suis en train de faire une macros comme exercice.
Alors je veux sélecter une range de donne et puis les coller.
Voila ce que j'ai essaye mais ca marche pas trop.

Sub CopierColler()

Dim rRange As Object
Dim pRange As Range
'selecter
Set rRange = Application.InputBox("Select range to copy", "Select Product Codes", Type:=8)
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy 'copy the selected range

'copier
Set pRange = Application.InputBox("Select range to paste", "Select Product Codes", Type:=8)
ActiveCell.Activate
Selection.Paste
End Sub

Je pense que je me suis complique, au lie de choisir a nouveau ou coller juste un clic de mouse sur un cellule et les donnes sélectes vont être😀 copie.

Merci pour votre aide

 

[teodormircea]

Re : Copier coller avec une macros

Voila une solution

Sub copy_paste()


Set src = Application.InputBox("Select range to copy FROM with mouse", Type:=8)
Set tgt = Application.InputBox("Select first cell of range to copy TO with mouse", Type:=8)
If Not src Is Nothing And Not tgt Is Nothing Then
src.Copy tgt
End If
End Sub
Mais je voudrasi que ca marche pour tout les fichiers ouvert, copier d'un fichier a un autre