Problème d'en-tête [VBA]

Bonjour,

J'ai un tableau excel auquel j'ai appliqué un affichage en "mise en page". Je voudrais mettre une en-tête seulement sur la première page mais soit l'en-tête se met sur toute les pages, soit elle ne s'affiche pas...

J'ai trouver sur le net qu'il fallait cocher la case "Première page différente" et quand je fais ça l'en-tête de la première page disparaît mais elle reste sur les autres pages.

La macro m'a générer ce code (je comprend comment il fonctionne mais ça ne marche toujours pas.) :

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = "&""-,Italique""&9Tarifs modifiables sans préavis. Le tarif faisant foi est disponible sur notre site Internet"

.CenterFooter = ""

.RightFooter = "&P/&N"

.LeftMargin = Application.InchesToPoints(0.7)

.RightMargin = Application.InchesToPoints(0.7)

.TopMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(0.75)

.HeaderMargin = Application.InchesToPoints(0.3)

.FooterMargin = Application.InchesToPoints(0.3)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlPortrait

.Draft = False

.PaperSize = xlPaperA4

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.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 = "&""-,Gras""&18LISTE DES PRIX&11" & Chr(10) & "CATALOGUE FRANCE " & Year(Date)

.FirstPage.RightHeader.Text = "&8Tarifs FRANCE" & Chr(10) & "&8au 01/01/" & Year(Date)

.FirstPage.LeftFooter.Text = ""

.FirstPage.CenterFooter.Text = ""

.FirstPage.RightFooter.Text = ""

End With

Quelqu'un pourrait-il m'aider s'il vous plait?

Bonjour BdL

Si tu ne veux pas que ton entête se répète sur toutes les pages, il ne faut pas mettre de valeur dans :

Mise en Page -> Onglet : Feuille -> Titres à imprimer : Lignes à répéter en haut

En VBA ça donne

    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With

A+

Oui Brique de lait c'est mon petit nom .

En effet, j'avais mis des valeurs dans le printtitlerows... C'est ballot. En tout cas merci bien BrunoM45!

A-