Masquer des onglets selon la date d'ouverture du fichier

pinkbaby91 Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,
j'ai un fichier excel avec un certain nombre d'onglets.
Mes affichages d'onglets ont des calculs selon le trimestre de l'année dans lequel on se trouve. Ainsi, j'aimerai que, selon la date à laquelle j'ouvre mon fichier, les onglets qui ne correspondent pas au trimestre en cours soient masqués.
Si je suis au premier trimestre de l'année, les onglets des trimestre 2 3 et 4 se masquent, et ainsi de suite.
Est ce que quelqu'un pourrai m'aider?
Je l'espere en tout cas...
Merci d'avance!
A.
A voir également:

4 réponses

Réponse 1 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Voir ici:

https://forums.commentcamarche.net/forum/affich-32766859-masquer-des-colonnes-en-fonction-de-la-date-du-jour#p32767590
0
Réponse 2 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Mettre en résolu ce post, si le code qui est sur ce lien est ce que vous chercher.
0
Réponse 3 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
a mettre dans ThisWorkBook 

Option Explicit
Dim monmois As String
Private Sub Workbook_Open()
Sheets(Format(Now, "mmmm")).Select 'selection mois en cours
monmois = Format(Now, "mmmm") 'mois en cours
 Dim I As Integer
   For I = 1 To Sheets.Count
      If Sheets(I).Name = monmois Then
    Worksheets(I).Visible = True
     Else
     Worksheets(I).Visible = xlSheetHidden 'on cache les onglets
      End If
   Next I
Trimestre (Now)
End Sub
Function Trimestre(MyDate As Date) As Integer
 Select Case Month(MyDate)
 Case 1, 2, 3
 Trimestre = 1
 Worksheets(1).Visible = True
 Worksheets(2).Visible = True
 Worksheets(3).Visible = True
 Case 4, 5, 6
 Trimestre = 2
  Worksheets(4).Visible = True
 Worksheets(5).Visible = True
 Worksheets(6).Visible = True
 Case 7, 8, 9
 Trimestre = 3
  Worksheets(7).Visible = True
 Worksheets(8).Visible = True
 Worksheets(9).Visible = True
 Case 10, 11, 12
 Trimestre = 4
  Worksheets(10).Visible = True
 Worksheets(11).Visible = True
 Worksheets(12).Visible = True
 End Select
 End Function
0
Réponse 4 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Voilà un exemple:

http://www.cjoint.com/c/EKno1gRMQMQ
0