macro pour verifier le nombre de feuilles

[SYLVAIN]

Bonjour le forum,

Voila je cherche a faire une macro, qui permetterai de vérifier le nombre de feuilles dans mon classeur.

et également inscrir quelque part le nom des différentes feuilles.

Pouvez vous m'aider???????

Merci et bon ap'

Sylvain

 

[@+Thierry]

Salut Sylvain, le Forum

Comme ceci tu peut avoir un message indiquant le nombre de feuilles, et ensuite une liste des feuilles sur deux colonnes (Numéro d'index + nom d'onglet) qui s'inscrira à partir de la cellule "A1" de la feuille active...

Sub TheSheetsList()
Dim WS As Worksheet

MsgBox "Ce classeur contient " & Sheets.Count & " feuilles !"

With ActiveSheet
For Each WS In Sheets
.Cells(WS.Index, 1) = WS.Index
.Cells(WS.Index, 2) = WS.Name
Next
End With

End Sub


Bon App
@+Thierry

 

[SYLVAIN]

Merci thierry,

Comment faire pour lancer une macro sur toutes les feuilles:

- pour chaque feuille du classeur, lancer la macro.

je pense avec un for each ... next ?


Thx!!!!!!!!!!!

 

[@+Thierry]

Heuh ?

Je ne comprends pas ce que tu veux faire ? explique toi un peu mieux ?

Tu veux faire une liste des feuilles sur chaque feuille ???

Là je vais déjeuner je repasse plus tard.

@+Thierry

 

[SYLVAIN]

bonjour le forum, bonjor thierry!!!


non,

j'aimerai juste lancer une macro (qui a rien avoir) sur toute les feuilles de mon classeur.

j'aimerai pouvoir l'executer sur toutes les feuilles en meme tps.

le nombre de feuille ds mon classeur peu augmenter.

 

[@+Thierry]

Bonjour Sylvain, le Forum

Ah, je comprends un peu mieux, mais donc ce n'est pas vraiment la même chose que ta première question.

Essaie ceci :

Sub AllSheets()
Dim WS As Worksheet
For Each WS In Sheets
With WS
.Cells(1, 1) = WS.Name
.Cells(1, 2) = Format(Now, "DD/MM/YYYY HH:MM")
End With
Next
End With

Cette macro écrira sur chaque feuille :
en A1 son nom espectif
en B1 la date et l'heure

Si çà peut t'inspirer, sinon c'est bien "For Each...... Next" comme tu pensais.

Bonne Journée (T.G.F. !!!)
@+Thierry

 

[SYLVAIN]

Mrci M8,

super thierry, c exaxtement ce que j'ai besoin!!!!!

Bon WE le Forum