Besoin d'aide VBA

Résolu
J-Art Messages postés 19 Statut Membre -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour
    Option Explicit
    Sub copier()
    Dim tampon
    tampon = Sheets"2016").Range("M1:R45")
    Sheets("Fiches de salaire").Range("AA1:AF45") = tampon
    End Sub

    0
  2. Gyrus Messages postés 3360 Statut Membre 526
     
    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
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      En général en VBA, on évite au maximum les copy-paste
      0