Masquer des onglets

Bonsoir, c'est trés intéressant cette idée de masquer les onglets. Merci à ceux qui y pensent et à ceux qui font que cela soit possible...

Si je vous masquer mes onglets mensuels sauf un nommé "données" et un autre nommé "calendrier"..

Leakim

Bonjour

Ton sujet étant un peu différent, je l'ai transféré sur ce nouveau

Cordialement

Merci pour cette ajustement!!!

Voilà je pense reprendre ton code

Sub MasquerOnglets()
ActiveSheet.Unprotect
Dim sh As Worksheet, Val As Variant
xdate = Now()
Val = Application.WorksheetFunction.Proper(Format(xdate, "mmmm yyyy"))
For Each sh In Worksheets
 If sh.Name <> Val Then sh.Visible = False
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
End Sub

Et ajouter un "SAUF"... SAUF...SAUF que je ne vois pas comme faire ???

Lekim

Bonjour

Une solution

Sub MasquerOnglets()
Dim Sh As Worksheet

  Application.ScreenUpdating = False
  For Each Sh In Worksheets
    If Sh.Name <> "calendrier" And Sh.Name <> "données" Then Sh.Visible = xlSheetHidden
  Next Sh
End Sub

Merci, pour cette proposition. Je reviendrai vers vous. Je suis en train de moduler mon fichier car j'aimerai que la macro soit sur un onglet "données" et seulement sur cet onglet et que les onglets mensuels soient masqués si pas concernés.

Je m'y penche et je reviens.

Merci encore et à bientôt.

Leakim