un internaute
XLDnaute Impliqué
Bonjour le forum
Dans ThisWorkbook jai cette macro
Dans un module j'ai cette macro
Je voudrais afficher masquer toutes les feuilles par un doubleclic sur cellule A2
Et aussi faire apparaître que l'année en cours (2019) à l'enregistrement
Merci à vous
Dans ThisWorkbook jai cette macro
VB:
Private Sub Workbook_Open()
Dim Sh As Worksheet
Dim An%
An = Year(Date)
For Each Sh In ThisWorkbook.Worksheets
With Sh
If .Name <> "Retraites " & An Then .Visible = xlSheetVeryHidden
End With
Range("A1").Select
Next
End Sub
Dans un module j'ai cette macro
Code:
Sub AfficherOnglets()
Application.ScreenUpdating = False
Dim Onglets As Worksheet
For Each Onglets In Worksheets
Onglets.Visible = True
Next Onglets
Application.ScreenUpdating = True
End Sub
Je voudrais afficher masquer toutes les feuilles par un doubleclic sur cellule A2
Et aussi faire apparaître que l'année en cours (2019) à l'enregistrement
Merci à vous