Copier/Coller

[apdf]

Bonjour,

je me permets de solliciter de l'aide. J'ai une classeur excel avec plusieurs feuilles

Feuille1 avec des données liste d'inscription.
Feuille2 avec des Scores alimentées chaque nouveau score.

J'aimerai crée une macro qui :
copie les données de la feuille1 (colonne C) pour les coller dans la feuille2 colonne A.


je vous remercie de votre aide.

Cordialement

Max

 

[choupi_nette]

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+

 

[apdf]

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

 

[choupi_nette]

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

 

[apdf]

Re : Copier/Coller

Re,

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

@+

Max

 

[job75]

Re : Copier/Coller

Bonjour apdf, choupi_nette,

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

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 :

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+

 

[choupi_nette]

Re : Copier/Coller

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

 

[apdf]

Re : Copier/Coller

Bonjour Job75

Oui vraiment plus simple et merci beaucoup

Bonne journée

@+

Max