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

yannou27 · 27 Décembre 2021

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

VB:

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

Jacky67 · 27 Décembre 2021

yannou27 à dit:
.

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

Phil69970 · 27 Décembre 2021

Bonjour @yannou27

Tu as perdu le bouton sur ton PC

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

@Phil69970

yannou27 · 27 Décembre 2021

Jacky67 · 27 Décembre 2021

yannou27 à dit:
.

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

Phil69970 · 27 Décembre 2021

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 · 27 Décembre 2021

Jacky67 à dit:
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 · 27 Décembre 2021

Phil69970 à dit:
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 · 27 Décembre 2021

Re

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

VB:

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

@Phil69970

Jacky67 · 27 Décembre 2021

yannou27 à dit:
@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

VB:

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

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

yannou27

XLDnaute Nouveau

Pièces jointes

Jacky67

Phil69970

XLDnaute Barbatruc

yannou27

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

yannou27

XLDnaute Nouveau

yannou27

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Discussions similaires