Discussion :

[BtjpsspgrW]

Bonjour,

La macro ci-dessous indique la mise en page, avec pour en-tête de page, le n° de page / le nombre total de pages d’une même feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub mise_en_page()
With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = "Page&P / Page&N" 'Pied de page : Page 1 / Nombre de pages'
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
End With
End Sub

Je souhaiterais modifier cette macro en indiquant pour en-tête de page, le n° de page / le nombre total de pages du classeur entier (qui contient de nombreuses feuilles, qui pour une même feuille, existe plusieurs pages).

Quelle est la modification à apporter pour permettre de visualiser le nombre total de pages du classeur entier ?

Vous en remerciant par avance.

Cordialement.

[Stef999]

Bonjour,

Voici un début de solution ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub NbreDeSaut()
 
Dim nbSaut
Dim HPb As HPageBreaks
 
Set HPb = ActiveSheet.HPageBreaks
 
For Each Pb In HPb
    nbSaut = nbSaut + 1
Next
 
If IsEmpty(nbSaut) Then nbSaut = 0
MsgBox nbSaut & " sauts trouvés" & vbCrLf & nbSaut + 1 & " pages"
 
End Sub

Ça c'est pour compter le nombre de pages d'une feuille
Bien sûr il faut boucler sur toutes les feuilles.

Maintenant pour le pied de page :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.FirstPageNumber = 10

Cela permet de fixer le numéro de la première page (exemple à 10)

En combinant tout cela le problème devrait être résolu

Cordialement
Stéphane

[BtjpsspgrW]

Bonjour,

J'ai testé et ça fonctionne avec une MsgBox.

Mais je souhaiterais adapter ta syntaxe pour que cela s'affiche en en-tête de page pour chaque page du classeur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.LeftHeader = ""

pour le spécifier ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub mise_en_page()
With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
End With
End Sub

Merci pour ton aide.

Cordialement.

[Stef999]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Numerotation()
 
Dim nbSaut As Long
Dim nbPages As Long
Dim Wks As Worksheet
 
'Calcul du nombre total de pages
 
For Each Wks In Worksheets
    nbPages = nbPages + Wks.HPageBreaks.Count + 1
Next Wks
 
'Définition des pieds de page
 
Dim PremierNumero As Long
PremierNumero = 0
nbSaut = 0
 
For Each Wks In Worksheets
    PremierNumero = PremierNumero + nbSaut + 1
 
    With Wks.PageSetup
        .FirstPageNumber = PremierNumero
        .RightHeader = "Page &P / " & nbPages
    End With
 
    nbSaut = Wks.HPageBreaks.Count
 
Next Wks
 
End Sub

Stéphane