Discussion :

[EricBelgo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[EricBelgo]

Merci!!!

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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