Besoin d'aide VBA

Résolu/Fermé
J-Art Messages postés 19 Date d'inscription vendredi 12 février 2016 Statut Membre Dernière intervention 20 avril 2016 - Modifié par yzack29 le 24/03/2016 à 03:19
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 24 mars 2016 à 09:53
Bonsoir a tous,

j'ai des données sur une plage de données qui est dans une feuille que je veux pouvoir copier sur une autre feuille à un endroit précis. J'ai essayé cette formule et elle ne marche pas...

Worksheets("2016").Range("M1:R45").Copy
Worksheets("Fiches de salaire").Range("AA1:AF45").Paste

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
24 mars 2016 à 05:57
Bonjour
Option Explicit
Sub copier()
Dim tampon
tampon = Sheets"2016").Range("M1:R45")
Sheets("Fiches de salaire").Range("AA1:AF45") = tampon
End Sub

0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
24 mars 2016 à 08:32
Bonjour,

Tu peux également appliquer
Worksheets("2016").Range("M1:R45").Copy
ActiveSheet.Paste Worksheets("Fiches de salaire").Range("AA1")

ou plus simplement
Worksheets("2016").Range("M1:R45").Copy Worksheets("Fiches de salaire").Range("AA1")


A+
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
24 mars 2016 à 09:53
En général en VBA, on évite au maximum les copy-paste
0