Macro Coller une sélection dans la cellule sélectionnée

Bonjour,

Dans une feuille j'ai besoin de coller certaines données (résultat d'une recherche dans une autre feuille). Pour simplifier l'opération de sélection de la zone a copier / copier / aller dans la zone où coller / collage spécial / valeurs j'aimerai insérer une macro.

Pour le moment, elle ressemble à ceci:

Code:

---

1 2 3 4 5

Range("A3:J3").Select Selection.Copy Range("A56").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False

---

Mon seul problème est au niveau de la cellule de destination. Je voudrai que la destination soit la cellule que j'aurai sélectionné avant de cliquer sur le bouton de la macro?
J'ai fait différents tests de modification, mais je n'ai pas trouvé la solution. :roll:

Citation:

---

Envoyé par EricBelgo

Mon seul problème est au niveau de la cellule de destination. Je voudrai que la destination soit la cellule que j'aurai sélectionné avant de cliquer sur le bouton de la macro?

---

La solution la plus sûre est de commencer par enregistrer la référence de la sélection dans une variable de type Range.

Code:

---

1 2 3 4

Dim Dest As Range Set Dest = Selection Range("A3:J3").Copy Dest.PasteSpecial Paste:=xlValues

---

Mais si ta macro se limite à ça, on peut faire plus simple ainsi :

Code:

---

1 2	Range("A3:J3").Copy Selection.PasteSpecial Paste:=xlValues

---

Vu qu'il n'y a pas de Select pour le Copy, la sélection n'a pas changé quand on arrive au PasteSpecial.

C'est un exemple de plus qui prouve que les couples Select/Selection sont à éviter.

Merci!!!

J'ai utiliser la méthode la plus sûre et ca fonctionne parfaitement!

Citation:

---

La solution la plus sûre est de commencer par enregistrer la référence de la sélection dans une variable de type Range.
Sélectionner tout - Visualiser dans une fenêtre à part

Code:

---

1 2 3 4

Dim Dest As Range Set Dest = Selection Range("A3:J3").Copy Dest.PasteSpecial Paste:=xlValues

---

---