Discussion :

[progheure]

Bonjour, j'utilisais ceci pour garder la feuille du mois en cours active

Code :

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

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

J'aurais besoin maintenant de masquer toutes les feuilles sauf celles qui contient le mois en cours mais je n'arrive pas à saisir le bon code pourriez vous m'aider?
Merci à tous

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Sheets(MonthName(Month(Date), False)).Visible = True
 
Dim cptr As Byte
 
For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name <> MonthName Then
        Sheets(cptr).Visible = 0
    End If
Next

[Ashireon]

HEllo

Donc je corrigerai déjà tel que

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Sheets(MonthName(Month(Date), False)).Visible = True
 
Dim cptr As integer
 
For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name <> MonthName Then
        Sheets(cptr).Visible = false
    End If
Next

[Philippe Tulliez]

Bonjour,
Une solution parmi d'autres
Masque les feuilles nommées de janvier à décembre sauf celle du mois en cours qui sera affichée.

Code :

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

1
2
3
4
 Dim m As Byte
 For m = 1 To 12
  On Error Resume Next: Sheets(MonthName(m)).Visible = (m = Month(Date)): On Error GoTo 0
 Next

[EDIT]
Une autre option est celle de parcourir la collection des feuilles et de masquer toutes les feuilles sauf celle portant le nom du mois en cours donc même celle qui porterait comme nom MENU ou Accueil

Code :

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

1
2
3
4
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
 sht.Visible = (UCase(sht.Name) = UCase(MonthName(Month(Date))))
Next

[progheure]

Un grand merci Philippe.
Ta deuxième solution est parfaite comme les onglets ne portent pas que sur janvier à décembre et que je veux garder que celui du mois en cours.
Merci merci