CALCULER LE NOMBRE DE FEUILLES DANS UN CLASSEUR EXCEL ET BOUCLER DESSUS

bavouska

Messages postés: 2
Date d'inscription: lundi 28 mars 2005
Statut: Membre
Dernière intervention: 28 mars 2005

- 28 mars 2005 à 19:20
bavouska

Messages postés: 2
Date d'inscription: lundi 28 mars 2005
Statut: Membre
Dernière intervention: 28 mars 2005

- 28 mars 2005 à 19:20

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/23047-calculer-le-nombre-de-feuilles-dans-un-classeur-excel-et-boucler-dessus

bavouska

Messages postés: 2
Date d'inscription: lundi 28 mars 2005
Statut: Membre
Dernière intervention: 28 mars 2005

28 mars 2005 à 19:20

Et pourquoi pas comme ceci ?
Plus simple et plus efficace:

Sub Boucle_Sheet()

Dim xlsSheet As Excel.Worksheet 'Variable objet "feuille"

'Boucle sur toutes les feuilles du classeur actif:
For Each xlsSheet In Worksheets
xlsSheet.Cells(1, 1) = "Bonjour"
Next

End Sub