Intégrer 1Nb de page automatiquemt ds cellule

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

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

Salutations.
Jean-Pierre

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

Merci eriiic.

Gello Eriic !

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

m@rina

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

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

Mapi