XL 2013 Afficher tout sauf deux feuilles

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
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
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour le fil, badraaliou4, sylvanu

Ma façon de masquer les feuilles sauf certaines.
VB:
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

XLDnaute Barbatruc
Re

A la relecture du fil, ce serait plutôt
VB:
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
 

Staple1600

XLDnaute Barbatruc
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.
 

Discussions similaires

Réponses
7
Affichages
900
Réponses
3
Affichages
803