Bouton macro pour ouvrir un groupe de colonne précis selon la date du jour

Bonjour,

J'ai un Excel où 5 groupes de colonnes seront regroupées avec les [+] au dessus :

- de AP à BF : reporting du 4ème trimestre '21

- de BH à BX : reporting du 1er trimestre '22

- de BZ à CP : reporting du 2ème trimestre '22

- de CR à DH : reporting du 3ème trimestre '22

- de DJ à DZ : reporting du 4ème trimestre '22

Je souhaite ajouter un bouton.

Lorsqu'on clique sur le bouton, doit s'ouvrir un des 5 groupes de colonne (et uniquement celui-là) en fonction de la date du jour.

Par exemple :

Nous sommes le 4 janvier '22, je clique sur le bouton et s'ouvre le groupe de colonne AP-BF (uniquement celui-là), soit relatif au 4ème trimestre '21 (le trimestre précédent qui vient de s'écouler).

Et quand nous serons, par exemple le 19 octobre '22, quand on cliquera sur le bouton, s'ouvrira alors le groupe de colonne CR-DH (uniquement celui-là), soit relatif au 3ème trimestre '22 (le trimestre précédent par rapport à la date du jour).

D'avance merci!

Salut,

Sans avoir ton fichier modèle à disposition, ce n'est pas évident, mais je tente une démonstration de ce qui serait possible pour mon 10'000ème messages

Je présume que tu as une référence à une date dans les groupes que tu veux ouvrir ou fermer. Dans le fichier ci-joint, j'ai imaginé qu'il y avait la date du début de chaque trimestre dans la première colonne du groupe. Mais on pourra trouver une autre manière de déterminer cette période selon ton fichier réel.

Pour l'instant, la macro ne peut ouvrir que le trimestre précédent, mais ça fonctionnera de la même manière quand nous serons aux trimestres suivants.

Amicalement.

Bonsoir,
Une autre proposition en attendant d'avoir un complément d'informations.
Je pense à laffichage du 4e trimestre de l'année.
Cdlt.

Public Sub DisplayHideColumns()
Dim iQtr As Integer
    iQtr = DatePart("q", VBA.Date, 2, 2)
    With ActiveSheet
        Select Case iQtr
            Case 1:
                .Range("AP1:BF1").EntireColumn.Hidden = False
                .Range("BH1:BX1,BZ1:CP1,CR1:DH1,DJ1:DZ1").EntireColumn.Hidden = True
            Case 2:
                .Range("BH1:BX1").EntireColumn.Hidden = False
                .Range("AP1:BF1,BZ1:CP1,CR1:DH1,DJ1:DZ1").EntireColumn.Hidden = True
            Case 3:
                .Range("BZ1:CP1").EntireColumn.Hidden = False
                .Range("AP1:BF1,BH1:BX1,CR1:DH1,DJ1:DZ1").EntireColumn.Hidden = True
            Case 4:
                .Range("CR1:DH1").EntireColumn.Hidden = False
                .Range("AP1:BF1,BH1:BX1,BZ1:CP1,DJ1:DZ1").EntireColumn.Hidden = True
        End Select
    End With
End Sub

Salut Jean-Eric,

Selon la donnée, j'ai compris que le 4ème trimestre 2022 ne s'ouvrira que sur le ficher 2023

Bien à toi.

Salut Olide,

Ce serait sympa de revenir sur ton fil : déjà pour remercier les personnes qui t'ont aidé bénévolement et secondement afin de nous dire si nos solutions résolvent ton problème.

Cordialement.