Signaler

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

Posez votre question manu2183 - Dernière réponse le 2 août 2005 à 18:00 par manu2183
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!
Utile
+1
plus moins
T'entend quoi par page?
Cette réponse vous a-t-elle aidé ?  
manu2183- 2 août 2005 à 13:51
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
Utile
+0
plus moins
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
Utile
+0
plus moins
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...
manu2183- 2 août 2005 à 15:04
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
Utile
+0
plus moins
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?
Utile
+0
plus moins
c'est ce que j ai fait mais rien ne marche je sais as si de ton coté ca fonctionne mais pas chez moi
Utile
+0
plus moins
bon ok je teste... le boulot attendra...
manu2183- 2 août 2005 à 18:00
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
Utile
-4
plus moins
apercu avant impression
page
entete pied de page
pied de page personnalisé
&[Page] " sur " &[Pages]
manu2183- 2 août 2005 à 14:39
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

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !