N'afficher que les onglets nommés

Résolu/Fermé

Nai Messages postés 711 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 25 août 2023 - 14 juil. 2014 à 19:17
Nai Messages postés 711 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 25 août 2023 - 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:

N'afficher que les onglets nommés
Restaurer onglets chrome - Guide
Afficher mot de passe wifi android - Guide
Afficher appdata - Guide
Afficher les dossiers cachés - Guide

5 réponses

Réponse 1 / 5

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
15 juil. 2014 à 00:02

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 711 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 25 août 2023 54
14 juil. 2014 à 19:37

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 711 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 25 août 2023 54
15 juil. 2014 à 20:45

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
15 juil. 2014 à 21:17

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 711 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 25 août 2023 54
17 juil. 2014 à 13:34

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

Discussions similaires

Afficher toutes les lignes masquées excel

onglets qui restent ouverts

Supprimer onglets

remettre toutes les colonnes et les lignes masquées

Impossible de trouver l'icône "onglets" sur le J3 2016

Discussions similaires

Newsletters