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

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

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.