Rechercher : dans
Par :

Afficher le nombre de pages dans excel

Dernière réponse le 2 aoû 2005 à 18:00:56 manu2183, le 2 aoû 2005 à 12:29:45 
 Signaler ce message aux modérateurs

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!

Configuration: microsoft office 2000

Meilleures réponses pour « afficher le nombre de pages dans excel » dans :
[Word] Écrire un nombre en toutes lettres VoirPour transformer un nombre en toutes lettres sans se perdre dans l'orthographe (tirets, 's'...), il est possible de demander à Word de formater ce nombre en lettres : Créer un champ avec CTRL-F9 S'affichera {} à l'écran Le remplir avec la...

1

KdTcA, le 2 aoû 2005 à 13:05:42

T'entend quoi par page?

Répondre à KdTcA

2

manu2183, le 2 aoû 2005 à 13:51:20

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

Répondre à manu2183

3

KdTcA, le 2 aoû 2005 à 14:22:24

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

Répondre à KdTcA

4

random, le 2 aoû 2005 à 14:33:25

Apercu avant impression
page
entete pied de page
pied de page personnalisé
&[Page] " sur " &[Pages] elle est pas belle, la vie ?

Répondre à random

5

manu2183, le 2 aoû 2005 à 14:39:12

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

Répondre à manu2183

6

KdTcA, le 2 aoû 2005 à 14:53:26

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...

Répondre à KdTcA

7

manu2183, le 2 aoû 2005 à 15:04:17

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

Répondre à manu2183

8

KdTcA, le 2 aoû 2005 à 15:30:14

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?

Répondre à KdTcA

9

manu2183, le 2 aoû 2005 à 15:34:36

C'est ce que j ai fait mais rien ne marche je sais as si de ton coté ca fonctionne mais pas chez moi

Répondre à manu2183

10

KdTcA, le 2 aoû 2005 à 15:36:03

Bon ok je teste... le boulot attendra...

Répondre à KdTcA

11

 manu2183, le 2 aoû 2005 à 18:00:56

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

Répondre à manu2183