Compter nbre feuilles et pages d'un classeur excel

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Excel-lent à dit:

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

Cliquez pour agrandir...

Excel-lent à dit:

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

Cliquez pour agrandir...

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

End Sub

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

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