En-tête de plusieurs feuilles Excel

Bonjour,

Je veux automatiser le remplissage de l'en-tête et du pied de page decertaines feuilles de mon classeur Excel (mais pas toutes, juste suivant une liste allant jusqu'à 15 feuilles), cela en fonction de données entrées dans une feuille à part. J'ai mis dans le fichier joint les condition pour les en-tête et les pied de page.

Merci d'avance à tous ceux qui pourront me donner une réponse

Bonjour ,

Voila un code permettant de mettre les valeurs voulu en en-tête et pieds de page de la feuille active

Option Explicit
Sub Macro1()

Dim nom As String
Dim annee As String
Dim mission As String

nom = Range("Renseignements!B6").Value
annee = Range("Renseignements!B5").Value
mission = Range("Renseignements!B4").Value

    ActiveWindow.SmallScroll Down:=-69
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "Mission de " & mission
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = nom & " - annee" & annee
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    ActiveWindow.SmallScroll Down:=-9

End Sub

(la majeur partie du code à été fait par l'enregistreur de macro excel donc y'a ptete des trucs inutile pour toi ^^)

Au sujet des feuilles à changer , tu souhaite modifier uniquement certaine feuille fixes ou une seule qui dépendera des données ??

Cordialement