Afficher / masquer des onglets par demande

Bonjour Ines, bonjour le forum,

Le code ci-dessus, à placer dans le composant ThisWorkbook et à adapter (au niveau des onglets à masque/afficher) répond à ta première question :

Private Sub Workbook_Open()
Dim O As Integer

For O = 1 To Worksheets.Count
    Select Case O
        Case 1, 5, 7
            Worksheets(O).Visible = True 'affiche les onglets numéros 1, 5 et 7
        Case Else
            Worksheets(O).Visible = False 'masque les autres onglets
    End Select
Next O
End Sub

[Édition]
Bonjour jordane nos posts ses sont croisés...

Merci à tous les 2 pour vos réponses

@Tautheme j’ai pris ton code ça marche niquel cependant, j’aimerais que les onglets masqués ne soit pas visibles pas d’autres utilisateurs quand ils font clic droit sur la barre Excel.
Par ailleurs j’aimerais pouvoir ouvrir une boîte de dialogue pour laisser l’utilisateur ouvrir un onglet masqué en donnant le nom de cet onglet..

Pouvez -vous m’aider ?

Yes Jordane45 ça fonctionne niquel.

Du coup 50% du problème est résolu.

Comment faire maintenant pour ouvrir une boîte de dialogue, demander à rentrer le nom d’un onglet caché en input (sachant que c’est toujours le même format mois_annee) et rendre visible l’onglet ainsi désigné ?

Merci pour votre aide :)

Oui je cherche . Voici ce que j’ai essayé :
Private Sub Test()

Dim x As String, y As Integer, i As Integer

y = Month(Date)

x = Switch(y = 1, "Janvier_i", y = 2, "Février_i", y = 3, "Mars_i", y = 4, "Avril_i", y = 5, "Mai_i", y = 6, "Juin", y = 7, "Juillet", y = 8, "Aout_2019", y = 9, "September_2019", y = 10, "Octobre", y = 11, "Novembre", y = 12, "Décembre_2019") _

Dim Mois As String

Mois = InputBox("Renseigner le nom de l'archive que vous souhaitez ouvrir au format Mois_Année")

For i = 2019 To 2021

If Mois = x Then Sheets(x).Visible = True

Next

End Sub

Résultat : la boîte de dialogue s’ouvre mais l’onglet ne s’ouvre pas ..
Peut être auriez vous une idée ??
Merci :)

Bonsoir,

J’ai aussi essayé le code ci-dessous mais j’ai un message d’erreur de compilation au niveau de ma boucle if :

Private Sub Test()

 

Dim x As String, y As Integer, i As Integer

 

y = Month(Date)

For i = 2019 To 2021

x = Switch(y = 1, "Janvier_i", y = 2, "Février_i", y = 3, "Mars_i", y = 4, "Avril_i", y = 5, "Mai_i", y = 6, "Juin_i", y = 7, "Juillet_i", y = 8, "Aout_i", y = 9, "September_i", y = 10, "Octobre_i", y = 11, "Novembre_i", y = 12, "Décembre_i") _

 

Dim Mois As String

Mois = InputBox("Renseigner le nom de l'archive que vous souhaitez ouvrir au format Mois_Année")

 

If Mois = x Then Sheets(x).Visible = True

Else: MsgBox ("Non valide")

 

End If

 

Next

End sub 

EDIT : Ajout des balises de code

N.B j’ai corrigé les i manquants dans ma première formule

Merci beaucoup pour votre aide. J’ai modifié un peu et ça fonctionne bien