Numérotation automatique de page

Bonjour,

J'aurais besoin d'un grand coup de pouce de la part de personnes compétentes dans ce domaine.

Voilà j'ai un fichier excel contenant 5 feuilles en mode saut de page que je désire garder (Page de garde, sommaire, histoire 1, histoire 2, histoire 3)

Histoire 1 fait 1 Page,

Histoire 2 fait X pages

Histoire 3 fait 1 page(s)

Histoire 4 fait ..... page.

Ma page sommaire se présente comme ceci :

Sommaire

Histoire 1 Page A

Histoire 2 Page B

Histoire 3 Page C

Comment faire pour numéroter automatiquement mon sommaire en fonction du nombre de page dans mes feuilles

C'est a dire pour mon sommaire

Histoire 1 Page 3 (car page de garde + sommaire avant Histoire 1)

Histoire 2 Page 4 (car page de garde + sommaire + histoire 1 = 1 page)

Histoire 3 Page X (car page de garde + sommaire + histoire 1 = 1 page + Histoire 2 à X page, si on prend 3 page d'histoire 2 alors X sera = à 7, si Histoire 2 =10 pages alors X =14)

Histoire 4 Page X + 1 car Histoire 3 = 1 page ou X+2 si Histoire 3 = 2 pages....

Merci de votre aide

Chimonito

Bonsoir,

en VBA il y a une instruction pour connaître le nombre de saut de page d'une feuille ici afficher dans une MsgBox :

MsgBox "cette feuille comporte : " & _

ActiveSheet.HPageBreaks.Count + 1 & " pages"

Après, il faut faire une boucle sur toutes les feuilles du classeur et au fur et à mesure renseigner la feuille sommaire...

A vous de jouer.

@ bientôt

LouReeD

Bonjour,

Merci beaucoup, mais je suis novice et ne connais rien en VBA, pourriez vous m'aider ?

Merci encore

ou bien comment compter le nombre de saut de page d'un onglet et afficher le résultat dans la cellule L20 par exmple

Bonjour,

Essaie ce code

Option Explicit

Sub compte()

Dim i As Byte

Dim page As Integer

Sheets(1).Range("A5:A100").ClearContents 'efface la plage

For i = 1 To Sheets.Count 'compte les feuilles

page = page + 1 ' cumul les pages

Range("A" & i + 4) = "Histoire " & i & " ....page " & ActiveSheet.HPageBreaks.Count + 1 + page

Next i

End Sub

Bonsoir,

Ci-joint un fichier test pour vous montrez.

Pour voir le VBA il faut faire [alt]+[F11] sous Excel

Le principe de la macro :

à l'activation de l'onglet "Sommaire", la macro est lancée.

La macro compte les sauts de page de chaque feuille et les additionne au fur est à mesure tout en affichant le résultat sur la feuille "sommaire".

@ bientôt

LouReeD

85sommaire.xlsm (20.50 Ko)

Dans le module colle le code suivant et lance le:

Sub compte()

'Déclaration des variables

Dim i As Byte

Dim page As Integer

page = 0 'variable à 0

Application.ScreenUpdating = False

Sheets(1).Range("A9:C40").ClearContents 'efface la plage

For i = 1 To Sheets.Count 'compte les feuilles

With Sheets("sommaire")

.Range("A" & i + 8) = Sheets(i).Name

.Range("B" & i + 8) = "page "

Sheets(i).Select

.Range("C" & i + 8) = ActiveSheet.HPageBreaks.Count + 1 + page

End With

page = page + 1 ' cumul les pages

Next i

Sheets("sommaire").Select

Range("A1").Select

Application.ScreenUpdating = True

End Sub

Rechercher des sujets similaires à "numerotation automatique page"