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
Rejoignez-nous