Copier/coller sans selectionner la cellule

[coco_lapin]

Bonjour le forum.

Je voudrais copier/coller une cellule sans selectionner la cellule de destination (sous excel 97)

Cette macro fonctionne bien en selectionnant la cellule:
Range("A1").copy
Range("A2").select ' mais j'ai selectionné cette cellule
ActiveSheet.Paste

Je voudrais quelque chose comme ceci mais cela ne fonctionne pas
Range("A1").copy
Range("A2").paste

En fait j'ai figé les volets d'un onglet et la selection de la cellule change la place des colonnes et ceci est contraignant.

Merci pour votre aide.

 

[Pierrot93]

Re : Copier/coller sans selectionner la cellule

Bonsoir Cocolapin

essaye comme ceci :

Range("A1").copy Destination:=Range("A2")

bonne soirée
@+

 

[coco_lapin]

Re : Copier/coller sans selectionner la cellule

Bonsoir Pierrot93.

Merci pour ta solution, elle fonctionne très bien.

Bonne soirée.

 

[Macpoy]

Re : Copier/coller sans selectionner la cellule

bonsoir le forum, coco_lapin, Pierrot93,

un vieux excellien, m'avait dit et répéter d'éviter les select......
pour lui dans beaucoup de procédures, il était préferables d'utiliser les points value.

du genre :
range("A2").value = range("A1").value

et depuis ce conseil, j'ai moins de pb. surtout si cela ne trouve pas dans la même feuille.

 

[fifi]

Re : Copier/coller sans selectionner la cellule

hello ...
effectivement c'est mieux...

mais pourquoi donc ca ne marche pas chez moi 😀

j'essay de faire un copié/collé d'un classeur a un autre avec une macro événementielle mais parait que ce n'est pas géré par la macro :s
je ne sais pas pourquoi



mon premier code :

Workbooks(Table).Sheets(NomfichierTable).Columns("A😛").Copy
Workbooks(classeurActif).Activate
Sheets("Exploitation_QPCR").Range("A1").Select
Sheets("Exploitation_QPCR").ActiveSheet.Paste


un test sans .select :
Workbooks(classeurActif).Sheets("Exploitation_QPCR").Columns("A😛") = Workbooks(Table).Sheets(NomfichierTable).Columns("A😛")


et le copy destination:= , mon excel n'est veut pas :s

vous avez des solutions ?

 

[Pierrot93]

Re : Copier/coller sans selectionner la cellule

Bonjour Coco, Macpoy, fifi

@fifi
essaye comme ci dessous :

Workbooks(classeurActif).Sheets("Exploitation_QPCR").Columns("A:P").Copy Workbooks(Table).Sheets([B]"[/B]NomfichierTable[B]"[/B]).Columns("A:P")

en supposant que le nom du classeur "table" soit une variable, sinon mets les noms entre guillemets et spécifies l'extension ".xls" à la fin. J'ai rajouté les guillemets à la feuille NomfichierTable...

bonne journée
@+

 

[fifi]

Re : Copier/coller sans selectionner la cellule

ca marche nikel... pourquoi s'embeter avec des "paste", , de "destination" ....bidul truc