N'afficher que les onglets nommés

Résolu

Nai Messages postés 714 Date d'inscription Statut Membre Dernière intervention -
Nai Messages postés 714 Date d'inscription Statut Membre Dernière intervention - 17 juil. 2014 à 13:34

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

J'ai essayé avec et sans l'array :/
Quelqu'un a-t-il une idée ?

Merci d'avance ! :)

A voir également:

5 réponses

Réponse 1 / 5

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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

Réponse 2 / 5

Nai Messages postés 714 Date d'inscription Statut Membre Dernière intervention 55

Ah, une piste :


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

C'est un peu sommaire, non ?
J'ai bien tenté :


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

Mais ça ne marche pas...

Réponse 3 / 5

Nai Messages postés 714 Date d'inscription Statut Membre Dernière intervention 55

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

Encore merci !

Réponse 4 / 5

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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

Réponse 5 / 5

Nai Messages postés 714 Date d'inscription Statut Membre Dernière intervention 55

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

Discussions similaires

Afficher toutes les lignes masquées excel

Durée d'une diapositive animée

remettre toutes les colonnes et les lignes masquées

Probleme d'affichage de ligne dans Excel

Votre réponse

Discussions similaires