Macro calcul nombre de feuilles
Bonjour,
Je souhaite dans mon classeur connaitre le nombre de feuille car cela correspondra à mon nombre d" "Fiche Clients".
Oui mais voilà j'ai fait une petite macro mais qui a 2 gros inconvénients :
- je supprime des feuilles elle n'en tient pas compte.
- et il faut que je clique sur un bouton pour la mettre à jour.
Et en plus je n'ai pas confiance car un peu machine à gaz ou plutôt du rafistolage.
MERCI pour votre avis
Bonjour malpas, le forum,
Essaie ainsi :
Sub NbreFeuilles()
MsgBox Worksheets.Count
End SubCordialement,
Sub ListeFeuille()
Dim i As Byte
Range(Cells(1, 1), Cells(Range("A1").End(xlDown).Row, 1)).ClearContents
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, 1) = ThisWorkbook.Worksheets(i).Name
Next
End SubBonjour,
Une nouvelle proposition.
Cdlt.
Option Explicit
'Procédure à placer dans le module ThisWorkbook
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then Sh.Cells(1).Value = ThisWorkbook.Sheets.Count
End SubPlus simple que ce que j'ai proposé !
Sub ListeFeuille()
Dim i As Byte
Columns("A:A").ClearContents
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, 1) = ThisWorkbook.Worksheets(i).Name
Next
End Subpermet aussi d'en garder la liste comme tu avais fait.
Bonjour,
Je vous remercie, cela fonctionne.
@++