VBA - Numérotation des pages Résolu/Fermé

Question

Bonjour, 

J'essaie de mettre en en-tête le numéro de page actuel pour chaque feuille. Je veux par exemple que lors de l'impression de diverses feuilles contenant un à plusieurs pages, elles soient bien numérotées les une après les autres.

J'ai bien récupéré le nombre total de pages sans souci, mais 
 - soit je prend une variable que j'incrémente et je me retrouve avec dans une feuille qui contient plusieurs page le même numéro de page pour chaque page (à cause de l'en-tête statique)
 - soit je met l'incrémentation automatique d'excel ("&P") mais il démarre à 1 à chaque feuille. Et comme c'est une chaine de caractère et non un integer, je ne peux pas l'incrémenter moi-même.

Une solution ?

Merci d'avance.

Tramb · Answer

Up. Personne ?

Paf · Answer

Bonjour,

Avec le  code on pourrait peut-être mieux voir !

A+

Tramb · Answer

For Each c In Worksheets
    c.PageSetup.CenterHeader = "&B" & PREP & Chr(13) & ETUDE & "&B"
    Pages = Pages + c.HPageBreaks.Count + 1
Next

For Each c In Worksheets
    c.PageSetup.RightHeader = ("&P" + Page) & "/" & Pages
Next

michel_m · Answer

Bonjour

a essayer


Option Explicit
Sub numeroter_pages()
Dim nbre As Byte, cptr As Byte
nbre = ThisWorkbook.Sheets.Count

For cptr = 1 To nbre
    With Sheets(cptr).PageSetup
        .RightHeader = "&P" & "/" & nbre
        .FirstPageNumber = cptr
    End With
Next
End Sub

Paf · Answer

bonsoir,
merci Michel, 

ton code marche mais seulement s'il n'y a qu'une page à imprimer par feuille.
mais avec .FirstPageNumber  j'ai trouvé:

Dim nbre As Byte, cptr As Byte
nbre = ThisWorkbook.Sheets.Count
NBpage = 1

'********** Calcul NB de pages total***************
For cptr = 1 To nbre
    NBr = NBr + (Sheets(cptr).HPageBreaks.Count + 1) * (Sheets(cptr).VPageBreaks.Count + 1)
Next

'*********** Numérotation des pages pour chaque feuille ****************
For cptr = 1 To nbre
    With Sheets(cptr).PageSetup
        .FirstPageNumber = NBpage
        .RightHeader = "&P" & "/" & NBr
    End With
    'Sheets(cptr).PrintPreview
    '*** determination du nombre de page imprimées pour décaler le n° de page pour la feuille suivante
    NBpage = NBpage + (Sheets(cptr).HPageBreaks.Count + 1) * (Sheets(cptr).VPageBreaks.Count + 1)
Next

VBA - Numérotation des pages

5 réponses

Discussions similaires