badraaliou4
XLDnaute Occasionnel
VB:
sub login()
dim Exc as Boolean, Exceptions
Exceptions=array("liste","Members","login")
for each Sh in thisworkbook.sheets
exc=false
for t=Lbound(Execptions) to Ubound(Exceptions)
if exceptions(t)=Sh.name then Exc=true
next t
Sh.visible=Iif(Exc,False,true)
next
worksheets("home").select
Mon classeur contient de plusieurs feuilles , je veux quand j'exécute mon Macro, trois feuilles masquent avec veryhidden.
Ci-dessous mon code mais les 3 feuilles ne masquent pas comme je voulais.
Merci de votre aide
Dernière édition: