Afficher des feuilles masqué à l'aide d'un menu déroulant

[SiD88]

Bonjour,

J'ai réalisé un menu déroulant avec comme onglet "Réunion" et les mois de l'année jusqu'à Mai.
La feuille "Réunion" est apparente
Les feuilles correspondant aux mois sont masquées et doivent le rester, sauf lorsque j'en sélectionne une dans ma liste déroulante.
Si je choisie "Mai", la feuille apparait à côté de "Réunion". Si, ensuite, je choisie "Novembre", la feuille "Novembre" écrase "Mai", et ainsi de suite.

Pour le moment je n'arrive pas à afficher les feuilles des mois.
En effet, après m'avoir dit "Erreur 1004, La méthode Select de la classe Worksheet a échoué" il me renvoie a ma ligne de code suivante:

Private Sub CboOnglets_Click()
Sheets(CboOnglets.Value).Select 'permet d'appeler une feuille du classeur à travers l'useform
End Sub

Pourtant je ne vois pas ou est le problème.

Merci

En pj, mon code.

 

[Efgé]

Re : Afficher des feuilles masqué à l'aide d'un menu déroulant

Bonjour SiD, Essai comme ça. Cordialement

 

[roro69]

Re : Afficher des feuilles masqué à l'aide d'un menu déroulant

BONJOUR
A ESSAYER dans la procédure du combo:

Private Sub CboOnglets_Click()
ActiveSheet.Visible = False
Sheets(CboOnglets.Value).Visible = True
Sheets(CboOnglets.Value).Select 'permet d'appeler une feuille du classeur à travers l'useform

End Sub

A++

 

[SiD88]

Re : Afficher des feuilles masqué à l'aide d'un menu déroulant

Bonjour Efgé et roro69,

Raaa merci, à la lecture du code ça sonne presque évident!

Encore merci et à bientôt

 

[Dull]

Re : Afficher des feuilles masqué à l'aide d'un menu déroulant

Salut Sid., Hi!!!!FG 🙂, le Forum

Un essai en pièce jointe

Private Sub CboOnglets_Click()
F = ActiveSheet.Name
With Sheets(CStr(CboOnglets.Value))
    .Visible = True
    .Select 
End With
Sheets(F).Visible = xlSheetHidden
End Sub

EDITION: Salut roro🙂... Le fait que la chaleur augmente ici ... suis suis obliger de me déshydrater souvent ...donc plus lent 😱

Bonne Journée

 

[roro69]

Re : Afficher des feuilles masqué à l'aide d'un menu déroulant

La meilleur solution reste celle d'Efge car si on est sur la feuille réunion avec son code pas de problème