Copie cellule sans déplacement du pointeur

[Gedch]

Bonjour

Sur Excel, on peut copier une cellule sur laquelle se trouve le pointeur vers la cellule destination en déplaçant le pointeur sur cette dernière.
(Avec Ctrl C, puis Ctrl V)

Je cherche, le moyen de copier une cellule sans déplacer le pointeur

Exemple 1 : je suis sur A1 et je veux copier la cellule X300 sur A1 sans me rendre sur cette cellule X300

Exemple 2 : je suis sur A1 et je veux copier cette cellule sur X300 sans me rendre sur cette cellule X300

Exemple 3 : Je suis sur A1 et je veux copier nommée « Donnée1 » sur A1 sans me rendre sur cette cellule

Est-ce possible ?

 

[Pierrot93]

Re : Copie cellule sans déplacement du pointeur

Bonjour,

si j'ai bien compris :

Range("X300").Copy Destination:=Range("A1")

bon après midi
@+

 

[Gedch]

Re : Copie cellule sans déplacement du pointeur

Bonjour

Je vois que tu me propose apparemment une partie de macro

Cela doit vouloir dire, je présume, que c’est le seul moyen de faire cette commande ?
Mais je ne peux pas faire ou modifier une macro à chaque fois que je veux copier une celle de la sorte

Il faudrait donc cette macro me demande à chaque fois :
- Le cellule de base par son « emplacement « ou par son « nom »
- La cellule de destination ou groupe de cellules par leur(s) « emplacement(s) » ou leur « nom »

Concevoir une telle macro, n’est pas dans mes capacités.

 

[Pierrot93]

Re : Copie cellule sans déplacement du pointeur

Re,

Cela doit vouloir dire, je présume, que c’est le seul moyen de faire cette commande ?

A ma connaissance oui....

essaye ce code, si plusieurs, cellule les séparer par :, exemple A1:A10, les plages sources et de destination doivent être cohérentes...

Sub test()
Dim s As String, d As String
s = InputBox("Source à copier...")
If s = "" Then Exit Sub
d = InputBox("Destination de la copie...")
If d = "" Then Exit Sub
Range(s).Copy Destination:=Range(d)
End Sub

 

[Gedch]

Re : Copie cellule sans déplacement du pointeur

Merci Pierrot

Je viens d’essayer longuement ta macro

Cela fonctionne parfaitement dans tous les sens
(Cellule seule ou groupe de cellules, au départ ou à l’arrivée)

Le seul petit inconvénient, c’est que si je suis sur la cellule de destination, je suis obliger de tapez quand même les cordonnées de cette cellule.

On ne peut pas tout avoir !

Ou alors, lorsque je ne rempli pas dans l’ImputBox la zone de destination (ou la zone de départ) la macro considère que c’est l’emplacement du pointeur qui vaut référence

Mais çà du coup, c’est peut être pas possible ???

 

[Pierrot93]

Re : Copie cellule sans déplacement du pointeur

Re,

modifie comme suit :

Option Explicit
Sub test()
Dim s As String, d As String
s = InputBox("Source à copier...")
If s = "" Then s = ActiveCell.Address
d = InputBox("Destination de la copie...")
If d = "" Then d = ActiveCell.Address
Range(s).Copy Destination:=Range(d)
End Sub

 

[Gedch]

Re : Copie cellule sans déplacement du pointeur

Merci à nouveau Pierrot

Maintenant c’est plus que parfait

Je vais pouvoir compenser ce manque de commande sous Excel
(On trouvait pourtant cette commande sous l’ancêtre d’Excel)
Par ta macro

Seule restriction : on ne peut recopier une zone de plusieurs cellules pour le départ ou la destination en activant cette zone avec le pointeur alors que l’on peut le faire dans l’InputBox

Merci

 

[Pierrot93]

Re : Copie cellule sans déplacement du pointeur

Re,

Seule restriction : on ne peut recopier une zone de plusieurs cellules pour le départ ou la destination en activant cette zone avec le pointeur alors que l’on peut le faire dans l’InputBox

euh... pas tout compris...

 

[Gedch]

Re : Copie cellule sans déplacement du pointeur

Effectivement c’est peut-être confus

Prenons un exemple

Je veux copier la cellule A1 sur C5 :C8
En Utilisant la macro et l’InputBox
Je mets en 1er A1, puis ensuite C5 :C8

Même chose, mais sans renseigner l’InputBox pour la zone de destination

Je mets dans l’inputBox A1 (Cellule à copier)
J’active avec la souris la zone C5 :C8 (Ces cellules sont donc en surbrillance)
La copie est fait bien, mais seule la cellule C5 est concernée

Est-ce plus clair ?

 

[Pierrot93]

Re : Copie cellule sans déplacement du pointeur

Re,

remplace :

ActiveCell.Address

par :

Selection.Address

bonne soirée
@+

 

[Gedch]

Re : Copie cellule sans déplacement du pointeur

Bonjour Pierrot

Je viens de prendre connaissance de ta modification

J’ai fait le remplacement,

C’est tout bon ! 😱

La macro est parfaite à cent pour cent

Un grand merci

Bon après midi