Nombre de feuilles

[Mireille]

Bonjour à tous
Je cherche comment renvoyer le nombre de feuilles d'un classeur actif (pour pouvoir mettre un petit compteur)
Merci

 

[Nono]

Je me demande si ce que tu cherches ne correspond pas un peu à ça :


Option Explicit
Option Base 1
Dim NombreDeFeuilles As Integer

Sub ()

NombreDeFeuilles = Application.Worksheets.Count
For Comptage = 1 To NombreDeFeuilles
Worksheets(Comptage).Activate
With ....................................
........................
End With

 

[Gérard]

Cette petite procédure fait ça

Sub NombreDeFeuilles()
MsgBox "Ce classeur contient: " & ActiveWorkbook.Worksheets.Count + ActiveWorkbook.Charts.Count + ActiveWorkbook.DialogSheets.Count & " Feuilles.", vbInformation
End Sub

a+Gérard