appliquer une macro sur un certain nombre de feuilles dans un classeur

[rico]

Bonjour,
Je voudrais appliquer une macro sur un ensemble de feuilles d'un classeur et non sur la totalité.
La macro doit appliquer des changements au niveau de la forme d'un tableau sur toutes les feuilles du classeur exceptées celles qui ont été modifiées à la main.
Comment pourrais je le faire?
Merci d'avance pour votre aide.

 

[Alex]

salut

je crois ke tu peux essayer un truc du genre:
For Each feuilles In Worksheets(Array("feuil1", "feuil2", "feuil3))
et ca va marcher

voila voila

Alex

 

[rico]

Merci pour ton aide.
Mais le problème c'est que j'ai 140 feuilles dans mon classeur.
N'est-il pas possible de faire un tableau avec ceux avec lesquels je n'ai pas envie de travailler(car modifiés à la main)?

 

[Pascal76]

salut

as-tu essayé ?

for each ws in worksheets
if ws.name <> ""toto" or ws.name <> "tutu" then

ta macro

endif
next

toto et tutu sont les feuilles que tu ne veux pas toucher

sinon si il y a un signe distinctif quelque chose de changer sur les feuilles à ne pas traiter car déjà modifié à la main

for each ws in worksheets
if le truc <> changer à la main then

ta macro

endif
next

Bon courage

Pascal

 

[rico]

J'ai essayé ce que tu m'as donné mais cela bugue. Il reste sur la première feuille et il ne s'arrête pas.
Comment faire alors?

 

[Pascal76]

T'as essayé quel truc il y en a 2 ?

De plus en ce moment on ne peut envoyé de fichier sur le forum.

Si tu veux envoie moi un bout sur ma BAL avec quelques explications et je regarde

Pascal

 

[rico]

J'ai essayé le premier.
Je vais t'envoyer par mail mon travail ainsi que le code de la macro.
Merci d'avance pour ton travail et ton aide.
Essaie de me répondre rapidement car je suis un peu pressé.Merci d'avance

 

[rico]

Je rencontre encore des pbs avec la macro.Voici l'endroit où est indiquée une erreur


Range("G6:G7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext

// Il m'indique en-dessous qu'il y a une erreur
.MergeCells = True
End With