N'afficher que les onglets nommés Résolu/Fermé

Question

Bonsoir la communauté,

Je cherche à n'afficher que deux onglets (que je nomme précisément).
Ainsi, je commence par masquer tous les onglets, puis afficher les onglets en question.
Sub Afficher_moyennes()'' Afficher_moyennes'Dim Onglets As WorksheetFor Each Onglets In WorksheetsOnglets.Visible = False 'cacher tous les ongletsSheets(Array("Affichage", "Moyennes")).SelectActiveWindow.SelectedSheets.Visible = True 'afficher les onglets cités ci-dessusNext OngletsEnd Sub
J'ai essayé avec et sans l'array :/
Quelqu'un a-t-il une idée ?

Merci d'avance ! :)

Configuration: Windows 7 (64 bits)
Google Chrome 35
Intel(R) Core(TM) i3 CPU
2.4GHz
Mémoire 4,00 Go

Nai · Answer

Ah, une piste :
Sub Afficher_moyennes()'' Afficher_moyennes'Sheets("Affichage").Visible = TrueSheets("Renseignements").Visible = FalseSheets("Ce que fait le tableau").Visible = FalseSheets("Feuille de présence").Visible = TrueSheets("Moyennes").Visible = TrueSheets("Fréquentation globale").Visible = FalseSheets("Fréquentation 1").Visible = FalseSheets("Fréquentation 2").Visible = FalseSheets("Fréquentation 3").Visible = FalseSheets("Pourcentage S1").Visible = FalseSheets("Pourcentage S2").Visible = FalseSheets("Global").Visible = FalseSheets("Calculs").Visible = FalseEnd Sub
C'est un peu sommaire, non ?
J'ai bien tenté :
Sub Afficher_moyennes()'' Afficher_moyennes'Sheets("Affichage", "Moyennes", "Feuille de présence").Visible = TrueSheets("Fréquentation 1", "Fréquentation 2", "Fréquentation 3", "Pourcentage S1", "Pourcentage S2", "Global", "Calculs", "Fréquentation globale", "Ce que fait le tableau", "Renseignements").Visible = FalseEnd Sub
Mais ça ne marche pas...

michel_m · Answer

Bonjour

Option Explicit'--------Sub Afficher_moyennes()Dim Onglet(), Cptr As Byte, Idx As ByteOnglet = Array("affichage", "moyennes") For Cptr = 1 To ThisWorkbook.Sheets.Count     On Error Resume Next          If Application.Match(Sheets(Cptr).Name, Onglet, 0) > 0 Then               If Err.Number > 0 Then                    Sheets(Cptr).Visible = False               Else                    Sheets(Cptr).Visible = True               End If          End If     On Error GoTo 0NextEnd Sub'------Sub réinitialiser()Dim Cptr As ByteFor Cptr = 1 To ThisWorkbook.Sheets.Count     Sheets(Cptr).Visible = TrueNextEnd Sub

Nai · Answer

Merci beaucoup ! :)
A titre informatif, peux-tu me détaillé la macro ? Histoire de savoir ce que je fais :D

Encore merci !

michel_m · Answer

Déjà, dis moi demain  si c'est ce que tu voulais et si ca marche
la maquette de W
https://www.cjoint.com/?3Gpvq6tNhee

Nai · Answer

Heu... ? Peut-être t'es-tu trompé de sujet ? :)

N'afficher que les onglets nommés

5 réponses

Discussions similaires