Afficher le nombre de pages dans excel

Résolu/Fermé
manu2183 - 2 août 2005 à 12:29
 manu2183 - 2 août 2005 à 18:00
Bonjour,
tout d abord merci de votre attention
je souhaite sous excel inserer le nombre de page de ma feuille dans une cellule déterminé en passant pas par les en tetes et pieds de pages
soit une formule dans la cellule soit par une macro
d'avance merci
si je pouvais avoir la réponse rapidement ce serait vraiment tres cool!

7 réponses

T'entend quoi par page?
1
merci de m avoir répondu
par page j entend le nombre de page nécessaire à l impression de mon tableau. autre explication je veux inserer dans une cellule du tableau l information qui se trouve normalement dans le pieds de pages sousl intitulé pages
j espere que j ai été claire
et je te remercie de m avoir répondu
0
J'ai pas trop le temps de tester mais là en bidouillant un peu tu devrais trouver ton bonheur :
http://www.excelabo.net/xl/imprimer.php#cellulentete
0
Cette fonction perso (adaptation de Frédéric Sigonneau) renvoie le
numéro de la page de la cellule où elle est appelée :

Function NumPage() As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet, Cellule As Range
Dim Col As Integer, Ligne As Long

Application.Volatile
Set Cellule = Application.Caller
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function

Ensuite, en A25 par exemple :

=NumPage()

testé sans réussite et sans conviction...
0
j ai tester aussi et je retourne ce prog dans tout les sens sans arriver à le faire marcher bug erreur 2024 à la ligne "Set Cellule = Application.Caller"
Merci a tous
0
idem

en fait le
Cellule
correspond à la cellule où tu mets ton =
Num Page()

donc à mon avis, enleve tous çà mets dans un sub et dirige la variable sur ta celellule voule... non?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
c'est ce que j ai fait mais rien ne marche je sais as si de ton coté ca fonctionne mais pas chez moi
0
bon ok je teste... le boulot attendra...
0
je vous remercie tous de l attention que vous avez apporté à ma demande .
Mon problème a été résolue mais de manière très très barbare
j ai bloqué la hauteur de mes lignes
ensuite avec un Nbval j ai calculer le nombre de ligne existante
j ai ensuite compter le nombre de ligne dans une pages
et j ai fait un suparrondi
très très lourd mais ca marche a peu près en tout cas pour ce que je veux faire
encore merci à tous
0
random
Messages postés
1612
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
30 mars 2006
155
2 août 2005 à 14:33
apercu avant impression
page
entete pied de page
pied de page personnalisé
&[Page] " sur " &[Pages]
-4
je te remercie mais je veut utiliser le nombre de page dans une cellule et pas dans les en tetes et pied de pages comme je l avais marqué dans mon premier message
merci quand meme
je suis en train de tester un prog que j ai obtenu dans excel labo je vous ferai dirais si ca marche
0