for eatch sauf une?

[SYLVAIN]

Coucou le forum!!!!

Comment faire pour utiliser un for eatch (voir ex ci dessous) pour toutes les feuilles sauf une?


Dim WS
As Worksheet
For Each WS In Sheets
With WS

Merci le forum!!!

PS: CouCou Zorro, euhhhh @+Thierry

 

[Pascal76]

Salut sylvain

Tu peux faire

for each ws in worksheets
if ws.name <> "tonnomfeuille_que_tu_nee_veux_pas"
.....
endif
next

Bon courage

Pascal

 

[Pascal76]

excuse j'ai oublié le then au bout de la ligne if ....

Pascal

 

[SYLVAIN]

thx pour cette reponse aussi rapide,

ct trop simple, merci.

 

[@+Thierry]

Hello Sylvain, Pascal, le Forum

Héhéhé Zorro est arrivé trop tard (il était à table !! lol)

Oui comme le dit Pascal très justement, ou encore, si on ne veut pas traiter le premier onglet de WorkSheet (placé à l'extrème Gauche), ce qui peut être interressant si on ne connait pas le nom de la feuille...

Sub TraiteWS1()
Dim i As Byte

For i = 2 To Worksheets.Count
With Worksheets(i)
.Range("a1") = Worksheets(i).Name
End With
Next
End Sub

On peut aussi traiter uniquement les Onglets dont le nom ne commencent pas par "Toto"

Sub TraiteWS2()
Dim WS As Worksheet
For Each WS In Sheets
If Not Left(WS.Name, 4) = "Toto" Then
With WS
.Range("a1") = Now
End With
End If
Next
End Sub

Bon Après midi, et bonne digestion
@+Thierry

 

[@+Thierry]

PS ...

For Each WS In Sheets...

Si on est sûr et certain de n'avaoir que des feuilles à traiter dans le classeur (Pas de Charts ou autres DialogSheet)

Mais le mieux est d'écrire :

For Each WS in WorkSheets

Comme l'avait fait très justement Pascal, même si il a oublié le Zen, oups le Then !!


Bon Aprèm
@+Thierry

 

[SYLVAIN]

merci Zorro !!!!!!!!!

toujours la !!!!


bonne fin de journée a vous tous !!!!!!!!