VBA Masquer des feuilles en fonction d'une liste

Résolu
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -  
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -

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

Réponse 1 / 2
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 

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
Réponse 2 / 2
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   1
 

Super 

merci beaucoup !!!
0