N'afficher que les onglets nommés
Résolu
Nai
Messages postés
709
Date d'inscription
Statut
Membre
Dernière intervention
-
Nai Messages postés 709 Date d'inscription Statut Membre Dernière intervention -
Nai Messages postés 709 Date d'inscription Statut Membre Dernière intervention -
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.
Quelqu'un a-t-il une idée ?
Merci d'avance ! :)
--
Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)
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()J'ai essayé avec et sans l'array :/
'
' Afficher_moyennes
'
Dim Onglets As Worksheet
For Each Onglets In Worksheets
Onglets.Visible = False 'cacher tous les onglets
Sheets(Array("Affichage", "Moyennes")).Select
ActiveWindow.SelectedSheets.Visible = True 'afficher les onglets cités ci-dessus
Next Onglets
End Sub
Quelqu'un a-t-il une idée ?
Merci d'avance ! :)
--
Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)
5 réponses
-
Bonjour
Option Explicit
'--------
Sub Afficher_moyennes()
Dim Onglet(), Cptr As Byte, Idx As Byte
Onglet = 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 0
Next
End Sub
'------
Sub réinitialiser()
Dim Cptr As Byte
For Cptr = 1 To ThisWorkbook.Sheets.Count
Sheets(Cptr).Visible = True
Next
End Sub
-
Ah, une piste :
C'est un peu sommaire, non ?
Sub Afficher_moyennes()
'
' Afficher_moyennes
'
Sheets("Affichage").Visible = True
Sheets("Renseignements").Visible = False
Sheets("Ce que fait le tableau").Visible = False
Sheets("Feuille de présence").Visible = True
Sheets("Moyennes").Visible = True
Sheets("Fréquentation globale").Visible = False
Sheets("Fréquentation 1").Visible = False
Sheets("Fréquentation 2").Visible = False
Sheets("Fréquentation 3").Visible = False
Sheets("Pourcentage S1").Visible = False
Sheets("Pourcentage S2").Visible = False
Sheets("Global").Visible = False
Sheets("Calculs").Visible = False
End Sub
J'ai bien tenté :
Mais ça ne marche pas...
Sub Afficher_moyennes()
'
' Afficher_moyennes
'
Sheets("Affichage", "Moyennes", "Feuille de présence").Visible = True
Sheets("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 = False
End Sub -
Merci beaucoup ! :)
A titre informatif, peux-tu me détaillé la macro ? Histoire de savoir ce que je fais :D
Encore merci !
-
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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Heu... ? Peut-être t'es-tu trompé de sujet ? :)
