Menu

Afficher le nombre de pages dans excel [Résolu/Fermé]

manu2183 - 2 août 2005 à 12:29 - Dernière réponse :  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!
Afficher la suite 

11 réponses

Meilleure réponse
1
Merci
T'entend quoi par page?

Merci KdTcA 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24546 internautes ce mois-ci

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
Merci
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
Merci
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...
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
Merci
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
Merci
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
Merci
bon ok je teste... le boulot attendra...
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
random 1621 Messages postés vendredi 26 novembre 2004Date d'inscription 30 mars 2006 Dernière intervention - 2 août 2005 à 14:33
-4
Merci
apercu avant impression
page
entete pied de page
pied de page personnalisé
&[Page] " sur " &[Pages]
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