XL 2013 Macro: bouton "mois suivant" permettant d'afficher/masquer des lignes

[yannou27]

Bonjour à tous,

En prévision de cette nouvelle année, je souhaiterais enregistrer pour chaque mois un certain nombre de données.
J'ai donc créé 12 tableaux identiques (un pour chaque mois) les uns en dessous des autres.

Pour faciliter la lecture, je souhaiterais à l'aide de bouton vba pouvoir basculer d'un mois à l'autre.

Le rôle du bouton est donc que, à chaque clic, le groupe de lignes affichées soit masqué et le groupe de lignes suivantes soit affichés.

J'ai créé un exemple simplifié dans le tableau ci-dessous.

Au clic sur le bouton "mois suivant"
les lignes 4 à 9 correspondant au tableau de janvier sont affichées et les lignes 10 à 14 correspondant au tableau de février sont affichées

Sub Bouton1_Cliquer()
'
' Bouton1_Cliquer Macro
'

'
    Rows("5:9").EntireRow.Hidden = True
    Rows("10:14").EntireRow.Hidden = False
   
   
End Sub

J'aurais désormais besoin d'une formule permettant de continuer à naviguer sur les mois suivants....
Voici le fichier en lien
https://www.cjoint.com/c/KLBlyILkPMk

Un grand merci à vous et Bonnes fêtes de fin d'année

 

[Phil69970]

Bonjour @yannou27

Tu as perdu le bouton

sur ton PC

Voici le fichier en lien
https://www.cjoint.com/c/KLBlyILkPMk

@Phil69970

 

[yannou27]

.

 

[Jacky67]

.

Bonjour et bonne fête
Une proposition avec un SpinButton en PJ

 

[Phil69970]

Bonjour @yannou27
Edit :Bonjour @Jacky67

Voici ma version
Le fichier s'adapte avec le mois en cours à l'ouverture

*Merci de ton retour

@Phil69970

 

[yannou27]

Bonjour et bonne fête
Une proposition avec un SpinButton en PJ

Bonjour @Jacky67,

je ne connaissais pas le spinbutton mais ca correspond à mon besoin.
Je vais essayer de bien déchiffrer la ligne de code pour bien comprendre le fonctionnement mais ca semble abordable.

En tout cas, merci beaucoup, c'est exactement ce qu'il me fallait.

Bonnes fêtes de fin d'année également.

 

[yannou27]

Bonjour @yannou27
Edit :Bonjour @Jacky67

Voici ma version
Le fichier s'adapte avec le mois en cours à l'ouverture

*Merci de ton retour

@Phil69970

@Phil69970,

Merci pour la petite ligne d'affichage pour sur le mois en cours.
Je prends également la proposition du spinboutton de @Jacky67, ce qui va me permettre de naviguer d'un mois à l'autre notamment, en cas d'analyse.

Merci à vous 2,

 

[Phil69970]

Re

Après tu peux créer un bouton pour tout afficher (toute l'année)

Sub Tout_Afficher
Rows("5:64").EntireRow.Hidden = False
End sub

@Phil69970

 

[Jacky67]

@Phil69970,

Merci pour la petite ligne d'affichage pour sur le mois en cours.
Je prends également la proposition du spinboutton de @Jacky67, ce qui va me permettre de naviguer d'un mois à l'autre notamment, en cas d'analyse.

Merci à vous 2,

Hello @Phil69970,
Re.. @yannou27
Si tu souhaites qu'a l'ouverture du classeur le mois en cours soit de suite affiché, ajoute ceci dans le thisworkbook

Private Sub Workbook_Open()
  Feuil1.SpinButton1.Value = Month(Date)
End Sub