Numéro de page et nombre de pages fichier Excel

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
C
CassandraW
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 29 juin 2018
Version d'Excel : 2016 FR

Message par CassandraW » 13 août 2019, 15:33

Bonjour,

Ma question est la suivante : est-il possible d'insérer le numéro de page ainsi que le nombre de pages sur un fichier Excel mais hors en-tête ?

J'aimerais tout simplement les insérer dans une case de la feuille de calcul.

Je vous remercie pour votre aide :)

Bonne journée,
Cassandra
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'762
Appréciations reçues : 195
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 13 août 2019, 15:53

Bonjour,
Sans un module VBA impossible car la la numérotation varie selon la configuration de l'imprimante


Un test en retour avec le module correspondant. ;;)
TESTNUM-PAGE.xlsm
(16.5 Kio) Téléchargé 16 fois
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 4'047
Appréciations reçues : 212
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 13 août 2019, 15:54

Bonjour Cassandra, bonjour le forum,

Essaie comme ça :
Sub Macro1()
Dim NbrP As Integer 'déclare la variable NbrP (Nombre de Pages)
Dim I As Integer 'déclare la varibale I (Incrément)

NbrP = Sheets.Count 'définit le nombre de pages NbrP
For I = 1 To NbrP 'boucle sur tous les onglets du classeur
    'renvoie dans la cellule A1 (à adapter) du classeur de la boucle le numéro de page suivi d'un slash suivi du nombre de pages
    Worksheets(I).Range("A1").Value = "'" & I & "/" & NbrP
Next I 'prochain onglet de la boucle
End Sub
[Édition]
Bonjour Xmenpl, nos posts se sont croisés. Tu as raison les pages ne sont pas les onglets... Je laisse quand même ma proposition au cas où Cassandra aurait fait, comme moi, la confusion...
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
d
djangomilou
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 22 avril 2020
Version d'Excel : 2019

Message par djangomilou » 22 avril 2020, 19:26

ThauThème a écrit :
13 août 2019, 15:54
Bonjour Cassandra, bonjour le forum,

Essaie comme ça :
Sub Macro1()
Dim NbrP As Integer 'déclare la variable NbrP (Nombre de Pages)
Dim I As Integer 'déclare la varibale I (Incrément)

NbrP = Sheets.Count 'définit le nombre de pages NbrP
For I = 1 To NbrP 'boucle sur tous les onglets du classeur
    'renvoie dans la cellule A1 (à adapter) du classeur de la boucle le numéro de page suivi d'un slash suivi du nombre de pages
    Worksheets(I).Range("A1").Value = "'" & I & "/" & NbrP
Next I 'prochain onglet de la boucle
End Sub
[Édition]
Bonjour Xmenpl, nos posts se sont croisés. Tu as raison les pages ne sont pas les onglets... Je laisse quand même ma proposition au cas où Cassandra aurait fait, comme moi, la confusion...
Bonjour,
J'ai rencontré le même souci pour mes numéro de pages et cette macro semble convenir.
Toutefois j'aimerais pouvoir attribuer le N° sur un onglet précis. Par ex: Cellule A1 feuille3
Merci
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message