Macro exécutée sur plusieurs onglets

Salut !

Je suis en train de faire une macro avec excel et je compte la généraliser sur toute une partie d'onglets. Par exemple effectuer toute la macro sur des onglets commenceant par "TEST" , le reste du nom de l'onglet est soit des nombres ou d'autres lettres. Je souhaite prendre le début comme test. Je ne sais pas exactement comment m'y prendre.

Salut

La methode que j'utiliserais: boucler sur toutes les feuilles, tester les 4 premiers caracteres et executer la macro (ou pas)

Code:

---

1 2 3 4 5 6

Dim feuille as worksheet for each feuille in thisworkbook.worksheets 'boucle sur les feuilles if left(feuille.name,4) = "TEST" then 'teste les 4 caracteres de gauche 'executer ta macro end if next feuille

---

J'ai testé ta macro et elle ne marche pas alors laisse moi expliquer quelques trucs :

Quand j'ai fait ma macro j'ai taché de parcéliser le problème en plusieurs étapes (des sortes de procédures) pour pouvoir tester chaque problématique séparément et ne pas se retrouver avec une grosse macro qui ne fonctionnera jamais.

Elle fonctionne avec les paramètres que je lui ai donné, une feuille précise qui m'a permis de tester tout ça sur une seule feuille et après je comptais généraliser.

J'activais ma feuille comme ça :

Code:

---

Sheets("TEST001").Select

---

:bug:

A part pour des cas tres precis Select et Activate (find, copie colle insertion...) sont non seulement inutiles mais en plus ils peuvent provoquer des erreurs (Activecell ou activesheet n'est pas forcement celui que l'ont veut).

Ton erreur peut provenir de plusieurs choses:
-le code est dans une feuille et non dans un module
-tu appelles les cellules avec cells ou range sans preciser le workbook

Pourrais-tu copier ton code ici ?

Citation:

---

Envoyé par Aizen64

J'ai testé ta macro et elle ne marche pas

---

Elle devrait fonctinoner sous deux restriction pourtant :

1. Que tu l'aies écrite dans un module standard (Insertion/Module
2. Que tu aies la même casse pour test que dans tes feuilles. Mais tu peux résoudre les soucis de casse en mettant OPTION COMPARE TEXT tout en haut du module