Trouver toutes les feuilles

[Eric]

Bonjour,

J'aimerais effectuer une action dans chaque feuille de mon classeur, malheureusement il m'est impossible d'utiliser une boucle normale puisqu'il arrive qu'une de mes feuilles a un numero aléatoire.

Ma méthode actuelle est la suivante:

*******************************************

page = 1

While page < Application.Worksheets.Count

Sheets(page)...........
Code plutot long a exécuter

page = page + 1
Wend

*******************************************

Desfois je peux avoir les Sheets(#): 1, 2, 3, 4 et 12. Donc je ne peux exécuter le code sur la page 12 de cette facon. Ya-t-il un moyen plus simple? (qui marche)

Merci

 

[Thierry]

Salut Eric

JUste une réponse rapide tant que tu sembles en ligne...

Un timer ? non (il y a plein d'exemples "OnTime" etc)

@+Thierry

 

[Eric]

Bonjour Thierry,

.... jai peut-etre mal expliqué mon probleme, mais je ne vois pas ce qu'un timer a à faire avec mon probleme de feuilles..... 😱)

Pourrais tu m'expliquer un peu plus explicitement ta solution?

Merci beaucoup!

Eric

 

[Thierry]

Eric en live!

Euh si t'es feuilles sont renommée (finie) la routine suivante trouvera leur noms !

...
suis là
@+Thierry

 

[Thierry]

comment j'ai pu écrire comme çà....(si "t'es" feuilles)... qu'est-ce que çà va être si David fait un chat !! lol

non non Eric je ne t'ai pas traité de feuilles !!

oups
@+Thierry

 

[STéphane]

j'ai pas compris pourquoi tu ne peux pas faire :

for each sh in activeworkbook.sheets
sheets(sh.name)......
next sh

 

[Eric]

Oh lala!!!
Espece de "feuille" toi-meme Thierry!!! On vient ici pour avoir de l'aide et on se fait insulter!!! ;-)

Merci Stéphane c'est EXACTEMENT ce que javais besoin! 🙂

 

[@+Thierry]

Hé hé hé.... (Sorry again...lol)