Saut de page

Bonjour à tous,

Sub AAAA()
Dim f As Integer, dt As String, Nbf13 As String
Nbf13 = InputBox("Entrer le nombre de pages supplémentaires", "")
dt = 48
    For f = 1 To Nbf13
        Range("A2:P47").Select
            Selection.Copy
        Cells(dt, 1).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Next f
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(dt, 2)
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Cells(dt, 2)
'ActiveSheet.PageSetup.PrintArea = "$B$2:$O$93
ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(93, 15))
Range("b2").Select
End Sub

je n'arrive pas à obtenir le même résultat avec "ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(93, 15))" qu'avec "'ActiveSheet.PageSetup.PrintArea = "$B$2:$O$93".

PS : à la question, entrer la valeur 1.

merci pour votre aide

Bonjour

Il faut une chaîne de caractère pour PrintArea

essayes

ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(93, 15)).Address

Merci pour ta promptitude