Numéro de page dans cellule

Bonjour,

lorsqu'on travaille sous excel dans affichage en mise en page, on voit bien les pages de notre fichier.

Y a-t-il une formule pour mettre le numéro de page dans une cellule (je ne parle pas des onglets) ?

voir mieux, y a-t-il une formule pour mettre le numdéro de page sur le nombre de page, ça peut être sur plusieur cellule...

Merci

Francky

Bonsoir,

Menu

Mise en page

Marges

Marges personnalisées

En-tête / Pied de page

Pied de page personnalisé

Tu fais alors ton choix dans les options disponibles (nom fichier, nom feuille, nb. de pages, etc...)

Cdlt

Bonjour Jean-Eric,

désolé, mais j'ai du mal m'expliquer. Je connais les entêtes et les pieds pages...

je voudrais, par exemple que dans J7 il y ait le numéro de page et que dans L7 le nombre de pages.

cdt

Francky

je te joint mon fichier

Francky

Re,

A tester et adapter si possible aux feuilles et au classeur.

Je suis parti du précédent message. Il y a peut-être une solution en combinant "VPageBreaks" & "HPageBreaks"

Bonne recherche

Public Sub NbTotalFeuilles()

Dim pb
Dim sH As Worksheet
Dim i As Byte, j As Byte

    i = Worksheets.Count

    For Each pb In ActiveWorkbook.Worksheets(i).VPageBreaks
        If pb.Extent = xlPageBreakFull Then
            cFull = cFull + 1
        Else
            cPartial = cPartial + 1
        End If
    Next

    MsgBox cFull & " full-screen page breaks, " & cPartial & _
    " print-area page breaks"
End Sub

ok, mais que faut-il mettre dans la cellule pour le total de feuille, ça :

=NbTotalFeuilles()

Ce code ne marche pas...

Francky

Re,

C'est une macro. Il faut donc sélectionner la cellule de destination.

C'est un test

Je ne connais pas ton fichier, le nombre d'onglets final, le type de mise en page, etc...

cdlt

comme dirait Homer : "au pinaise !"

j'y comprends rien, je vais peut être aller vers une autre solution...

bon, sinon, je n'ai qu'une feuille (enfin quand je dis qu'une feuille c'est 1 onglet car il y aura plusieur feuille dessous au sens impression) et la cellule où je voudrais que le nombre de page soit est "L6"

j'espère que dans la version Xème de Bill qu'il y aura des choses plus simple. Car franchement, souhaitez avoir un numéro de page dans une cellule !! bon d'accord c'est pas du Word et voilà ce qu'il se passe lorsqu'on fait du Word dans Excel, mais quand on a un document qui tout en tableau, je trouve Excel est "le soft" idéal... Même si je reconnais ne pas le maitriser...

Francky

Trop compliqué donc je valide,

merci tout de même,

Francky

Bonjour à tous,

Si ça peut intéresser quelqu'un, voici comment reporter le nombre de page d'une feuille dans une cellule :

Function TotPage() As Integer

Dim VC As Integer, HC As Integer

Dim WS As Worksheet, Cell As Range

Application.Volatile

Set Cell = Application.Caller

Set WS = Cell.Worksheet

HC = WS.HPageBreaks.Count + 1

VC = WS.VPageBreaks.Count + 1

TotPage = HC * VC

End Function