Compter nbre feuilles et pages d'un classeur excel

[starz]

Bonjour,
j'utilise une macro trouvée sur le NET mais cette dernière me donne comme résultat en A1 le nombre de feuille de mon classeur et en B1 le nom.


Private Sub Worksheet_Activate()
[A1]=ActiveWorkbook.Sheets.count
[B1]=ActiveSheet.Name
End Sub

Je cherche à rajouter une ligne pour me donner en C1 le nombre de page de ma feuille
genre
[C1]=ActivePages.count

bon cette ligne de cmd ne fonctionne pas c'est pour ça que je fait appel à vous

merci pour tout

 

[Hulk]

Re : Compter nbre feuilles et pages d'un classeur excel

Hello Starz,

Je cherche à rajouter une ligne pour me donner en C1 le nombre de page de ma feuille

Qu'entends-tu par "page" ?

Cdt, Hulk.

 

[Excel-lent]

Re : Compter nbre feuilles et pages d'un classeur excel

Bonjour le Hulk, le fil,

A mon avis il veut savoir sur combien de feuille A4 son onglet va être imprimé

(sans modification de la mise en page, déjà effectué, semble-t-il).


Bon WE

 

[nolich]

Re : Compter nbre feuilles et pages d'un classeur excel

Bonjour starz, Hulk et Excel-ent, bonjour à toutes et à tous 🙂

Envoyé par starz
j'utilise une macro trouvée sur le NET mais cette dernière me donne comme résultat en A1 le nombre de feuille de mon classeur et en B1 le nom.

Private Sub Worksheet_Activate()
[A1]=ActiveWorkbook.Sheets.count
[B1]=ActiveSheet.Name
End Sub

Je cherche à rajouter une ligne pour me donner en C1 le nombre de page de ma feuille
genre
[C1]=ActivePages.count

bon cette ligne de cmd ne fonctionne pas c'est pour ça que je fait appel à vous

Essaie ceci :

With ActiveSheet
  [C1] = (.HPageBreaks.[COLOR="red"]Count[/COLOR] + 1) * (.VPageBreaks.[COLOR="Red"]Count[/COLOR] + 1)
End With

@+

 

[starz]

Re : Compter nbre feuilles et pages d'un classeur excel

Bonjour le Hulk, le fil,

A mon avis il veut savoir sur combien de feuille A4 son onglet va être imprimé

(sans modification de la mise en page, déjà effectué, semble-t-il).


Bon WE

exact j'avais oublié de le préciser

j'ai essayé de rajouter

With ActiveSheet
[C1] = (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1)
End With

mais sans succès

merci

 

[Excel-lent]

Re : Compter nbre feuilles et pages d'un classeur excel

Bonjour Starz

Voici ci-dessous une proposition :

Sub CompterNombrePageFeuilleActive()
[COLOR="Green"]' Ecrire en C1 le nombre de pages de la feuille active
[/COLOR] 
[C1] = ActiveSheet.HPageBreaks.Count + 1

End Sub

Bon WE

Edition : Bonjour Nolich! Je me suis fais doubler!!! J'espère que pour cela tu n'as pas dépassé la vitesse légale 🙂 (et que tu as bien mis tes clignotants avant de me doubler!)

Edition : Starz, j'ai testé le code proposé, il fonctionne chez moi, donc tu ne devrais pas avoir de soucis!

 

[starz]

Re : Compter nbre feuilles et pages d'un classeur excel

merci Excel-lent d'ailleur ça l'est !

ça fonctionne merci

et si je veux que la macro soit en automatique ? comment puis-je faire ?

 

[Excel-lent]

Re : Compter nbre feuilles et pages d'un classeur excel

Salut Starz,

Tout dépend ce que tu entends par automatique!!!

Que le code se lance automatiquement :
-> à l'ouverture du fichier
-> lorsque tu clic sur la cellule ...
-> lorsque tu double clic sur la cellule ...
-> lorsque tu fais un clic droit sur la cellule ...
-> lorsque tu saisie le mot ... sur la feuille ... (ou dans la cellule ...)
-> lorsque tu clic sur le bouton ...
-> lorsque tu appuie sur "CTRL" + "Shitf" + "A"
-> ...

Bref des tonnes de solutions comme tu peux le voir! Peux-tu préciser ta demande?

A te lire

 

[starz]

Re : Compter nbre feuilles et pages d'un classeur excel

A l'enregitrement du fichier : before_save
j'essaie mais ça ne rien à jour

je suis parti avec 2 pages j'ai sauvé puis fermer
j'ai ré ouvert insérer 1 page , j'ai sauvé mais rien ne se passe.

d'ou ma question automatique mais je précise que je veux obtenir le résultat à l'enregistrement du fichier.

merci

 

[Excel-lent]

Re : Compter nbre feuilles et pages d'un classeur excel

Bonjour à tous,

Une petite précision, ce code :

Sub CompterNombrePageFeuilleActive()
[COLOR="Green"]' Ecrire en C1 le nombre de pages de la feuille active[/COLOR]
 
[C1] = ActiveSheet.[COLOR="Red"][B]H[/B][/COLOR]PageBreaks.Count + 1

End Sub

Ne fonctionne que si dans ta mise en page, tu n'as qu'une feuille en largeur! Car la macro ne compte que le nombre de page en hauteur!!!

Donc si tu as mis dans ta mise en page, ajuster sur 4 pages en largeur et 10 en hauteur, le résultat donné par ma macro sera faux!!!

Pour compter le nombre de page en largeur, la macro sera :

Sub CompterNombrePageFeuilleActiveV2()
 
[C1] = ActiveSheet.[COLOR="Red"][B]V[/B][/COLOR]PageBreaks.Count + 1

End Sub

Donc si tu veux compter le nombre de page TOTAL (hauteur et largeur), le code donnera cela :

Sub CompterNombrePageFeuilleActiveV2()
 
[C1] = (ActiveSheet.[COLOR="Red"][B]V[/B][/COLOR]PageBreaks.Count + 1) * (ActiveSheet.[COLOR="Red"][B]H[/B][/COLOR]PageBreaks.Count + 1)

End Sub

Comme tu le constate, on répète le mot ActiveSheet!

Donc pour éviter cela, on peut raccourcir le code ainsi :

Sub CompterNombrePageFeuilleActiveV2()

With ActiveSheet 
   [C1] = (.[COLOR="Red"][B]V[/B][/COLOR]PageBreaks.Count + 1) * (.[COLOR="Red"][B]H[/B][/COLOR]PageBreaks.Count + 1)
End With

End Sub

Ce qui comme par hasard, correspond étrangement au code fourni par Nolich! 😉

J'ai testé ce dernier code, il fonctionne chez moi!

Donc à moins que j'ai lu le code de Nolich trop vite (non testé) il devrait fonctionner aussi!

Bon WE

 

[Excel-lent]

Re : Compter nbre feuilles et pages d'un classeur excel

Re,

Tu as du mettre ta macro au mauvais endroit! Si tu l'as met dans "this workbook", ca fonctionne.

Cf. exemple ci-joint.

La macro se déclenche à chaque enregistrement.

Pour information, la commande before_save se déclenche que lorsque tu "enregistre". Donc l'ouverture de ton fichier ne déclenchera jamais ta macro 😉

Concernant la fermeture de ton fichier, cela ne déclenchera ta macro que si tu répond "oui" à la question proposé par Excel lorsqu'on quitte un fichier modifier depuis son ouverture "voulez vous enregistrer les modifications apportées..."

A te lire