XL 2019 Ligne rétractable

[NetK]

Bonjour à tous,
J'ai un fichier de plusieurs centaines de lignes pour des statistiques trier par dates. J'ai rajouté une ligne avec le nom du mois avant chaque première lignes du mois pour m'y retrouver plus facilement et je souhaitais savoir s'il était possible de masquer les lignes de stats et qu'elles ce développent en cliquant sur le nom du mois ou sur un bouton "+" situé à côté ?
Je vous joins un exemple pour plus de compréhension.

Merci d'avance de vos réponses.

 

[mapomme]

Bonjour @NetK et bienvenue sur XLD ,

Un essai en VBA. Sélectionner le mois à afficher ou masquer. Le code est dans le module de la feuille Feuil1.

Bonnet de nuit.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim trg As Range, etat As Boolean, i As Long
  Set trg = Target(1, 1)
  If trg.Column = 1 And trg.Row > 2 Then
    If trg.MergeCells Then
      Application.ScreenUpdating = False
      etat = Cells(trg.Row + 1, 1).EntireRow.Hidden
      For i = trg.Row + 1 To Rows.Count
        If Not IsDate(Cells(i, "a").Value) Then trg.Offset(, 1).Activate: Exit Sub
        Cells(i, "a").EntireRow.Hidden = Not etat
      Next i
    End If
  End If
End Sub

 

[Jacky67]

Bonjour à tous,
J'ai un fichier de plusieurs centaines de lignes pour des statistiques trier par dates. J'ai rajouté une ligne avec le nom du mois avant chaque première lignes du mois pour m'y retrouver plus facilement et je souhaitais savoir s'il était possible de masquer les lignes de stats et qu'elles ce développent en cliquant sur le nom du mois ou sur un bouton "+" situé à côté ?
Je vous joins un exemple pour plus de compréhension.

Merci d'avance de vos réponses.

Bonjour,
Une commande semblable existe déjà nativement dans Excel
Sélectionner les lignes, puis
Menu >Données>section>Plan==>Grouper

**Hello mapomme

 

[job75]

Bonjour NetK, mapomme, Jacky67, le forum,

S'il n'y a pas déjà du VBA dans le classeur il vaut mieux en effet utiliser la solution de Jacky67.

Sinon cette macro dans le fichier joint est bien simple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsDate("1 " & ActiveCell) Then
    While IsDate(ActiveCell(2))
        ActiveCell(2).Select
        ActiveCell.EntireRow.Hidden = True
    Wend
ElseIf ActiveCell = "Statistiques" Then Rows.Hidden = False: End If
End Sub

Bonne journée.

 

[job75]

S'il y a beaucoup de lignes à masquer ceci ira mieux :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If IsDate("1 " & ActiveCell) Then
    While IsDate(ActiveCell(2))
        ActiveCell(2).Select
        ActiveCell.EntireRow.Hidden = True
    Wend
ElseIf ActiveCell = "Statistiques" Then Rows.Hidden = False: End If
Application.EnableEvents = True
End Sub

 

[chris]

Bonjour à tous

Sur 2019, tu as la possibilité de travailler en tableau structuré et de filtrer le mois d'un clic par segment : c'est tellement plus simple !

La formule de la colonne ajoutée se propagera automatiquement sur toute nouvelle ligne et le segment s'ajustera au fil des mois...

 

[NetK]

Salut Ma pomme et merci pour ta réponse, c'est exactement ce qu'il me faut.

Par contre, serait-il possible d'avoir un peu plus d'explication afin de pouvoir adapter la macro à mon tableau, car en réalité il y a beaucoup plus de colonnes et de lignes et du coup la macro ne fonctionne pas.

Je te joins le fichier réel pour voir (j'ai supprimer les données).

Bonne soirée et merci à tous pour vos réponses.