XL 2010 Créer des entêtes en VBA

[cysalea]

Bonjour,

Après différentes recherches, je n'ai pas trouvé ce que je voulais.

J'arrive à créer une entête avec la macro automatique mais il y a énormément de lignes et je ne sais pas lesquelles supprimées.

Quelqu'un pourrait-il m'aider ?

Merci beaucoup

En résumé

- à gauche : je veux en format 8 : Requête
- au centre : en gras format 11 : Contrôle interne Supervision VDUREE MOIS
- à droite : je veux en format 8 : Requête du VDATEJOUR
VINIT

 

[Lone-wolf]

Bonsoir cysalea et bienvenue sur XLD

Voici la correction

Sub MEPage_IG()
Dim MOIS As String
Dim VDUREE As String
Dim VDATEJOUR As Date
Dim VINIT As String

'Définition de boite de messages
MOIS = InputBox("Entrer le mois et l'année : Exemple : si requête lancée en mai noter avril 2016")
VDUREE = InputBox("définir la durée : 10 ou 18 mois")
VDATEJOUR = InputBox("Entrer la date du jour au format JJ/MM/AAAA")
VINIT = InputBox("Entrer vos initiales")

    With ActiveSheet.PageSetup
        .LeftHeader = "&b" & "&8" & "Requête du " & VDATEJOUR
        .CenterHeader = "&b" & "&11" & "Contrôle Interne Supervision " & VDUREE
        .RightHeader = "&b" & "&8" & "Exécutée par " & VINIT
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .CenterHorizontally = True
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .FitToPagesWide = 1
        .PrintErrors = xlPrintErrorsDisplayed
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
    End With
        ActiveSheet.PrintPreview
    ActiveSheet.PageSetup.PrintArea = "$A$1:$H$35"
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
  End Sub

 

[cysalea]

Merci beaucoup pour ton coup de main Lone-Wolf.
J'ai adapté tes explications à mon fichier et ça marche !

 

[Lone-wolf]

Bonjour cysalea

Tout le plaisir est pour moi.