Copie cellule sans déplacement du pointeur

Pierrot93

XLDnaute Barbatruc

• 26 Août 2011

• #2

Re : Copie cellule sans déplacement du pointeur

Bonjour,

si j'ai bien compris :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

G

Gedch

XLDnaute Occasionnel

• 26 Août 2011

• #3

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Août 2011

• #4

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 ?

Cliquez pour agrandir...

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...

Code:

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

 

Vote positif 0 Vote négatif

G

Gedch

XLDnaute Occasionnel

• 26 Août 2011

• #5

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 ???

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Août 2011

• #6

Re : Copie cellule sans déplacement du pointeur

Re,

modifie comme suit :

Code:

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

 

Vote positif 0 Vote négatif

G

Gedch

XLDnaute Occasionnel

• 26 Août 2011

• #7

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Août 2011

• #8

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

Cliquez pour agrandir...

euh... pas tout compris...

 

Vote positif 0 Vote négatif

G

Gedch

XLDnaute Occasionnel

• 26 Août 2011

• #9

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 ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Août 2011

• #10

Re : Copie cellule sans déplacement du pointeur

Re,

remplace :

Code:

ActiveCell.Address

par :

Code:

Selection.Address

bonne soirée
@+

 

Vote positif 0 Vote négatif

G

Gedch

XLDnaute Occasionnel

• 27 Août 2011

• #11

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

 

Vote positif 0 Vote négatif