Masquer des colonnes en fonction de la date du jour Résolu/Fermé

Question

Bonjour à tous, 
j'ai un fichier excel avec tableau qui distingue des trimestres
Ainsi, j'aimerai que, selon la date à laquelle j'ouvre mon fichier, les colonnes qui ne correspondent pas au trimestre en cours soient masquées. 
Si je suis au premier trimestre de l'année, les colonnes 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.

cs_Le Pivert · Answer

Bonjour,

En vba. Faire Alt F11 pour accéder à l'éditeur.
Cliquez sur ThisWorkBook en haut à gauche et mettre ce code:

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 

Ensuite vous enregistrez classeur avec macro

cs_Le Pivert · Answer

C'est exact, je me suis planté. Je vois cela pour l'adapter à des colonnes.

cs_Le Pivert · Answer

Mais pour celui là c'est bien des onglets?

 https://forums.commentcamarche.net/forum/affich-32766855-masquer-des-onglets-selon-la-date-d-ouverture-du-fichier#p32767595

cs_Le Pivert · Answer

C'est ce post là qui m'a trompé!

Maurice · Answer

Bonjour
donne un modelé de ton fichier ça sera plus simple pour comprendre 
A+
Maurice

cs_Le Pivert · Answer

A mettre dans ThisWorkBook:

Option Explicit
Private Sub Workbook_Open()
Sheets("Feuil1").Select ' a adapter
 Columns("A:L").Select
    Selection.EntireColumn.Hidden = True
Trimestre (Now)
End Sub
Function Trimestre(MyDate As Date) As Integer
 Select Case Month(MyDate)
 Case 1, 2, 3
 Trimestre = 1
 Columns("A:C").Select
  Selection.EntireColumn.Hidden = False
 Case 4, 5, 6
 Trimestre = 2
 Columns("D:F").Select
  Selection.EntireColumn.Hidden = False
 Case 7, 8, 9
 Trimestre = 3
  Columns("G:i").Select
  Selection.EntireColumn.Hidden = False
 Case 10, 11, 12
 Trimestre = 4
  Columns("J:L").Select
  Selection.EntireColumn.Hidden = False
End Select
 End Function

Masquer des colonnes en fonction de la date du jour

6 réponses

Discussions similaires