masquer plusieurs feuilles

[nrdz83]

Bonjour à tous,
Voila j'utilise ce code afin de masquer une feuille>>>
Sheets("maille démontable ").Visible = False

Je souhaite masquer egalement les feuilles suivantes," maille démontable double calibr", "emerillon type HR", )
je fais ce code >>>>Sheets("maille démontable "," maille démontable double calibr", "emerillon type HR").Visible = False
Mais ça ne fonctionne pas j'ai une erreur.
Quel code dois je adapter j'ai plusieurs feuilles?
D'avance merci à tous mes amitiés😎

 

[smotty]

Re : masquer plusieurs feuilles

Bonjour nrdz83,

Tu ne peux pas mettre plusieurs noms de feuille de cette façon.

Essaie plutot ça:

sub essai
dim sh as worksheet
For each Sh in activeworkbook.sheets
select case sh.name
case "maille démontable "," maille démontable double calibr", "emerillon type HR"
sh.visible=false
end select
next sh
end sub

Cordialement

smotty

 

[Pierrot93]

Re : masquer plusieurs feuilles

Bonjour nrdz, Smotty

une autre solution :

Option Explicit
Sub test()
Dim mesfeuilles() As Variant, i As Byte
mesfeuilles = Array("maille démontable", "maille démontable double calibr", "emerillon type HR")
For i = LBound(mesfeuilles) To UBound(mesfeuilles)
    Sheets(mesfeuilles(i)).Visible = 0
Next i
End Sub

bonne journée
@+

 

[nrdz83]

Re : masquer plusieurs feuilles

Bonjour smotty
merci le code fonctionne par contre ma feuille "maille demontable double calibre" ne se masquée pas alors j'ai changé le nom et impec.
Mes amitiés et bonne journée