masquer plusieurs feuilles

nrdz83 · 11 Novembre 2008

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 · 11 Novembre 2008

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 · 11 Novembre 2008

Re : masquer plusieurs feuilles

Bonjour nrdz, Smotty

une autre solution :

Code:

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 · 11 Novembre 2008

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

masquer plusieurs feuilles

nrdz83

XLDnaute Impliqué

smotty

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

nrdz83

XLDnaute Impliqué

Discussions similaires

masquer plusieurs feuilles

nrdz83

XLDnaute Impliqué

smotty

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

nrdz83

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency