With/end with avec plusieurs feuilles !!

[Creepy]

Bonjour à tous,

J'ai une commande :

with feuil1
.blablabla
.blablabla
.blablabla
.blablabla
end with

Je dois faire exactement la même chose avec feuil2.

Comme j'ai beaoucoup de ligne (40aines), y'a t'il y moyen de grouper les with, genre with feuil1, feuil2 ou with allsheets

Parce que ce serait un peu bête de repeter 40 lignes, ca alourdi le code pour rien !!

Merci de votre aide

++

Creepy

 

[wape]

Bonjour,

Voici un petit bout de code qui recherche toutes les feuilles du classeur en cours, ce qui permet d'appliquer le même traitement sur chacune d'elles :

Dim Feuille As Worksheet

For Each Feuille In ThisWorkbook.Worksheets
With Feuille
.blablabla
.blablabla
.blablabla
.blablabla
End With
Next Feuille


wape

 

[Jon]

essaye aussi
with sheets(array("f1","f2"))
....
end with