Intégrer 1Nb de page automatiquemt ds cellule

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

Mapi

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

Gello Eriic !

Merci, c'est bon à savoir...
Ça ne rajeunit personne, tout ça !!! ;))

m@rina

Merci eriiic.

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

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

Salutations.
Jean-Pierre

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