XL 2013 Afficher tout sauf deux feuilles

[badraaliou4]

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

Bonjour,
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

 

[sylvanu]

Bonjour Badraaliou,
Corrigez déjà la faute dans votre For Next : Execptions au lieu de Exceptions. Il est possible que ce soit l'origine.

 

[badraaliou4]

Re,
Merci.
J'ai remplacé
Exc = false par Exc = visible=xlsheetveryhidden
Exc = true par Exc= visible=xlsheetvisible
Sh.visible=IIf(Exc, xlsheetveryhidden,xlsheetvisible)
Et j'ai obtenu la solution.

 

[sylvanu]

et sans corriger le nom de la variable Execptions ?

 

[Staple1600]

Bonjour le fil, badraaliou4, sylvanu

Ma façon de masquer les feuilles sauf certaines.

Sub masquer()
Dim ws As Worksheet, Visibles
Visibles = Array("liste", "Members", "login")
For Each ws In Worksheets
ws.Visible = Not IsError(Application.Match(ws.Name, Visibles, 0))
Next
End Sub

 

[Staple1600]

Re

A la relecture du fil, ce serait plutôt

Sub Masquer_II()
Dim ws As Worksheet, NonVisibles
NonVisibles = Array("liste", "Members", "login")
For Each ws In Worksheets
ws.Visible = IsError(Application.Match(ws.Name, NonVisibles, 0))
Next
End Sub

 

[badraaliou4]

C'était une erreur de frappe
Mais l'erreur n'était pas dans mon code

 

[Staple1600]

Bonjour à toi aussi badraaliou4

Je suis invisible ou tu n'es pas réveillé?

 

[badraaliou4]

Merci
Mais est ce que les 3 feuilles seront masquer par veryhidden?

 

[Staple1600]

Re

Bah, essaies les deux macros que je te propose
Et redis-moi laquelle se rapproche du résultat escompté.

PS: Tu sais que selon le niveau de maîtrise de VBA de l'utilisateur final, que ce masquage ne sert pas à grand chose.
Il suffit d'ouvrir le classeur sans activer les macros.