Bonjour au forum et d'avance merci pour votre aide.
J'ai besoin de mettre en page les 19 premiers onglets de mon classeur de façon identique : en-tête, pied de page, marges, paysage ....
J'ai utilisé l'enregistreur de macro pour intégrer cette partie dans ma macro mais le temps d'exécution est très (très très) long. J'espère qu'il existe une solution pour améliorer "le rendement" de cette macro. J'ai passé pas mal de temps sur le forum sans trouver de réponse ... je sollicite maintenant votre aide.
Bien cordialement,
Sub Mise_en_page()
'
'=====================================
'7ème partie : Mise en page des onglets
'======================================
Nb = 1
Do
Sheets(Nb).Activate
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Italique""&F \ &A"
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&P"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 10
.PrintErrors = xlPrintErrorsDisplayed
End With
Nb = Nb + 1
Loop Until Nb = 20
Sheets("Détail rejets").Range("A1").Select
End Sub
J'ai besoin de mettre en page les 19 premiers onglets de mon classeur de façon identique : en-tête, pied de page, marges, paysage ....
J'ai utilisé l'enregistreur de macro pour intégrer cette partie dans ma macro mais le temps d'exécution est très (très très) long. J'espère qu'il existe une solution pour améliorer "le rendement" de cette macro. J'ai passé pas mal de temps sur le forum sans trouver de réponse ... je sollicite maintenant votre aide.
Bien cordialement,
Sub Mise_en_page()
'
'=====================================
'7ème partie : Mise en page des onglets
'======================================
Nb = 1
Do
Sheets(Nb).Activate
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Italique""&F \ &A"
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&P"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 10
.PrintErrors = xlPrintErrorsDisplayed
End With
Nb = Nb + 1
Loop Until Nb = 20
Sheets("Détail rejets").Range("A1").Select
End Sub