Copier/Coller

C

choupi_nette

XLDnaute Occasionnel

• 12 Mars 2012

• #2

Re : Copier/Coller

Bonjour,
Essaie ca !!

Sub copypaste ()
Sheets("Inscription").Select
Range("C2:C65536").Copy
Sheets("Score").Select
Range("A2").Select
ActiveSheet.Paste
End Sub

A+

 

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 12 Mars 2012

• #3

Re : Copier/Coller

Bonjour Choupi_nette,

Et merci d'avoir répondu, mais j'ai un message d'erreur : " La méthode Select de la basse Range a échoué."

Bonne journée

Max

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 12 Mars 2012

• #4

Re : Copier/Coller

Re,
Comme ca peut etre ??

Sub copypaste ()
Sheets("Inscription").Activate
Range("C:C").Copy
With Sheets("Score")
.Range("A1").PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False

End Sub

 

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 12 Mars 2012

• #5

Re : Copier/Coller

Re,

Oui Nickel! je te remercie et te souhaite une bonne journée

@+

Max

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Mars 2012

• #6

Re : Copier/Coller

Bonjour apdf, choupi_nette,

apdf à dit:

j'ai un message d'erreur : " La méthode Select de la basse Range a échoué."

Cliquez pour agrandir...

Parce que vous avez mis la macro dans le code d'une feuille au lieu de la mettre dans un module standard...

De toute façon les Select et autres Activate sont généralement inutiles, voire néfastes, en VBA :

Code:

Sub Copie()
Feuil1.[C2:C65536].Copy Feuil2.[A2]
End Sub

Le code utilise le CodeName des feuilles, ce qui permet de modifier le nom des onglets sans problème.

A+

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 12 Mars 2012

• #7

Re : Copier/Coller

merci a Job75.. nettement plus simple et efficace
On voit qu'il y a du vecu VBA...
A+
Choupi_

 

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 12 Mars 2012

• #8

Re : Copier/Coller

Bonjour Job75

Oui vraiment plus simple et merci beaucoup

Bonne journée

@+

Max

 

Vote positif 0 Vote négatif