Discussion :

[progheure]

Bonjour,

J'ai un classeur qui contient en onglets tous les mois de l'année.
Ils sont tous masqués à l'exception de celui du mois en cours.
J'aimerais l'automatiser en vba pour qu'il m'affiche à l'ouverture, l'onglet du mois en cours, et que celui du mois -1 passe en masqué.

J'ai trouvé ce code qui selectionne le mois -1, mais n'affiche pas un mois masqué en masquant le précédent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Sheets(MonthName(Month(Date) - 1, False)).Select
End Sub

Quelles modifications apporter à ce code pour obtenir ce que je voudrais?
Merci beaucoup à vous.

[progheure]

J'ai fait ça qui fonctionne si ça peut aider....
Mais si quelqu'un a une idée pour le simplifier je suis preneur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets(MonthName(Month(Date), False)).Visible = True
Sheets(MonthName(Month(Date) - 1, False)).Visible = False

[graphikris]

Bjr

Je ne suis pas là pour t'aider mais essayer de comprendre ta macro, car je suis également intéressé.

Tu inseres ton code où : dans workbook avec la déclaration open

Sinon les onglets sont intitulés : Janvier , Février, etc... ou en Anglais
car j'ai essayé ton code mais c'est le flop, rien ne marche.

Cordialement

[gFZT82]

Bonjour,

Voici un exemple de code pour masquer toutes les feuilles à l’exception de celle qui porte le nom du mois en cours.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Masquer()
Dim Sh As Worksheet
    For Each Sh In Worksheets
        If Sh.Name = MonthName(Month(Date)) Then
            Sh.Visible = True
        Else
            Sh.Visible = False
        End If
    Next Sh
End Sub

Cordialement.

[graphikris]

Bjr, ce n'est pas moi qui est posté cette discussion à l'origine mais je tiens a te remercier.