With/end with avec plusieurs feuilles !!

Creepy · 19 Septembre 2003

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 · 19 Septembre 2003

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 · 19 Septembre 2003

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

With/end with avec plusieurs feuilles !!

Creepy

Guest

wape

Guest

Jon

Guest

Discussions similaires