Macro enregistrer

Bonjour ,

ma macro qui copie sur autorisation , je voudrais que la copie effectue sur la premier ligne vide vers le bas

Slt abdernino,

à tester

Sub CopierColler()
  Application.ScreenUpdating = False
  Dim Modele As Worksheet
  Dim Autorisation As Worksheet

  Set Modele = Worksheets("Modéle")
  Set Autorisation = Worksheets("Autorisation")

  Modele.Range("A1:G50").Copy
  Autorisation.Range("B" & Rows.Count).End(xlUp).Offset(7, -1).PasteSpecial xlPasteAll
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

m3ellem1 a écrit :

Slt abdernino,

à tester

Sub CopierColler()
  Application.ScreenUpdating = False
  Dim Modele As Worksheet
  Dim Autorisation As Worksheet

  Set Modele = Worksheets("Modéle")
  Set Autorisation = Worksheets("Autorisation")

  Modele.Range("A1:G50").Copy
  Autorisation.Range("B" & Rows.Count).End(xlUp).Offset(7, -1).PasteSpecial xlPasteAll
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

Bonjour ,

Merci beaucoup , mais est ce que c'est possible de copié avec la mème mise en forme que l'onglet modèle .

si tu parle de la foto alors essaie d'intergrer un code du genre

Modele.Shapes.Range(Array("Picture 1")).Select

et tu le colles sur la premiere céllules libre trouvée

sinon j'ai pas compris

@++

m3ellem1 a écrit :

si tu parle de la foto alors essaie d'intergrer un code du genre

Modele.Shapes.Range(Array("Picture 1")).Select

et tu le colles sur la premiere céllules libre trouvée

sinon j'ai pas compris

@++

non je veux la même largeur de colonne

à tester

Sub CopierColler()
  Application.ScreenUpdating = False
  Dim Modele As Worksheet
  Dim Autorisation As Worksheet

  Set Modele = Worksheets("Modéle")
  Set Autorisation = Worksheets("Autorisation")
  Application.CopyObjectsWithCells = True
  Modele.Range("A1:G50").Copy
        With Autorisation.Range("B" & Rows.Count).End(xlUp).Offset(7, -1)
             .PasteSpecial xlPasteColumnWidths
             .PasteSpecial xlPasteValues
             .PasteSpecial xlPasteFormats
        End With
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub