intégrer 1Nb de page automatiquemt ds cellule

Question

Bonjour,

j'ai un classeur excel comprenant pls feuilles. Je souhaite intéger le nombre de page automatiquement dans une cellule particulière (et non dans le pied de page).

je ne c pas si c possible. Merci d'avance

Mapi

m@rina · Answer

Bonjour,

C'est possible avec une macro événementielle.

Tu peux mettre une macro dans la feuille où doit se trouver cette cellule, et qui s'exécutera à l'activation de la feuille :

Private Sub Worksheet_Activate()
Dim onglets
onglets = ActiveWorkbook.Sheets.Count
Range("A1").Value = onglets
End Sub

m@rina

Le Pingou · Answer

Bonjour,
Le même que m@rina, désolé.--

Salutations.
Jean-Pierre

eriiic · Answer

Bonsoir,

tu peux aussi te servir d'une ancienne fonction d'excel4 : LIRE.DOCUMENT(50)
Mais pour s'en servir sur 2003 il faut la déclarer dans un nom, et ajouter une fonction 'neutre' pour la rendre volatile.
En clair :
- menu 'insertion / nom / définir..'
- 'Nom dans le classeur': nbPages
- 'Fait référence à': =ENT(ALEA())+LIRE.DOCUMENT(50)

Dans la cellule concernée : =nbPages

Coucou à m@rina et au pingou au passage... :-)
eric

Le Pingou · Answer

Merci eriiic.

m@rina · Answer

Gello Eriic !

Merci, c'est bon à savoir...
Ça ne rajeunit personne, tout ça !!! ;))

m@rina

Le Pingou · Answer

Eh oui m@rina, j'en connais un bout !
Bonne fin de semaine.

Mapi · Answer

Merci bcp je viens de tester ça marche (enfin je n'en doutais pas !) Merci encore ! ! !

Mapi

Intégrer 1Nb de page automatiquemt ds cellule

7 réponses

Discussions similaires

Newsletters