Discussion :

[Aizen64]

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.

[tonton fred]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Aizen64]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("TEST001").Select

[tonton fred]

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 ?

[Maxence HUBICHE]

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