Copier une plage de cellule

Bonjour,

Je cherche à créer un PPT et pour cela j'aurais besoin de copier une plage de cellule en gardant les bordures, ici, dans le fichier excel ci-joint, plage A1;D4

Merci pour votre aide

Set Diapo1 = .Slides.Add(Index:=1, Layout:=ppLayoutBlank)
        .PageSetup.SlideWidth = Application.CentimetersToPoints(25.4)
        .PageSetup.SlideHeight = Application.CentimetersToPoints(14.29)
        w = .PageSetup.SlideWidth
        h = .PageSetup.SlideHeight

Bonjour Supreme, le forum,

j'aurais besoin de copier une plage de cellule en gardant les bordures, ici, dans le fichier excel ci-joint, plage A1;D4

Sub copier()

    With Sheets("Feuil1")
.Range("A1:D4").Copy
    End With

End Sub

Cordialement,

Bonjour,

Le code ci-dessous devrait te permettre de faire ce que tu veux

Sub CopieColle()
    Sheets("Feuil1").Range("A1:D4").Copy Destination:=Sheets("Feuil2").Range("A1")
End Sub

J'espère t'avoir aidé

Yes, Merci !