Calculer le nombre de feuilles dans un classeur excel et boucler dessus

Soyez le premier à donner votre avis sur cette source.

Snippet vu 24 542 fois - Téléchargée 28 fois

Contenu du snippet

Méthode simples et rapides pour obtenir le nombre de feuilles présentes dans un classeur EXCEL. Variable permettant ensuite de boucler sur les différentes feuilles pour ajouter, modifer, ... ce que l'on veut dans chacunes des feuilles.

A mettre dans un module VBA.

Source / Exemple :


SUB Boucle_Sheet ()

' Variables
RefCel=1    ' Variable pour la ligne
RefCol=1    ' Variable pour la colonne

NbSheet=Sheets.count  'NbSheet = Variable qui contient le nb de feuilles totales.

' Boucle
While NbSheet<>0 'Attention, NbSheet prend la valeur maximale du nb de feuilles.
         Cells(RefCel, RefCol)="Bonjour"
         NbSheet=NbSheet-1  'Partie à ne pas oublier sinon on boucle à l'infini !!!!
Wend

End Sub

Conclusion :


Pour la boucle, on dit bonjour sur la cellule A1 de chaque présente. Cette partie est à modifier.
Pas de capture, car pas necessaire.
On peut rajouter un contrôle sur le nom d'une feuille, si l'on ne veut pas que celle-ci soit modifier :
Dans la boucle, ajouter : "If Sheets.name<>"Feuil1" then
Cells(RefCel,RefCol)="Bonjour"
End If"
Voilà.

23/05/2004 : Ajout dans le IF ci-dessus.
Remplacer sheets.name par sheets(NbSheet).name, sinon, cela vous met une erreur sur object inconnu.

A voir également

Ajouter un commentaire

Commentaire

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

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.