VBA Masquer des feuilles en fonction d'une liste

Résolu/Fermé
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 14 févr. 2023 à 17:22
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 21 févr. 2023 à 17:34

Bonjour,

je cherche un code pour masquer des feuille d'un classeur excel en fonction de leurs noms.

J'ai 12 feuilles portant le nom des mois.

J'ai 1 onglet parametrage dans lequel j'ai la liste des feuilles en colonne B1:B12 (janvier, février ....) et en F10 le mois en cours.

J'aimerais trouver un code qui compare F10 à à la colonne B et en fonction du mois en cours masquer les mois qui suivent.

Par avance merci

A voir également:

2 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 févr. 2023 à 09:29

Bonjour,

Si tu veux avoir le mois en cours affiché et les autres mois masqués, mettre ce code dans ThisWorkbook:

Option Explicit
Option Compare Text
Private Sub Workbook_Open()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name = Format(Now, "mmmm") Then
    Ws.Visible = xlSheetVisible
    Else
    Ws.Visible = xlSheetVeryHidden
    End If
Next Ws
End Sub

1
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
21 févr. 2023 à 17:34

Super 

merci beaucoup !!!

0