Grouper des lignes sous condition

[kingfadhel]

Bonjour,

Je voudrais pouvoir grouper les lignes selon le mois

exemple : de la ligne A5 à A35

je voudrais avoir un ( + ) à gauche pour afficher ou masquer les lignes selon le mois que je sélectionne.

 

[DoubleZero]

Re : Grouper des lignes sous condition

Bonjour, kingfadhel, le Forum,

... je voudrais avoir un ( + ) à gauche pour afficher ou masquer les lignes selon le mois que je sélectionne.

Une suggestion, sans "+" et sans "-", en pièce jointe.

A bientôt 🙂

 

[kingfadhel]

Re : Grouper des lignes sous condition

Re,
Génial, Merci DoubleZero.

 

[kjin]

Re : Grouper des lignes sous condition

Bonjour,
Macro événementielle qui active ou désactive le filtre auto au double-click sur une cellule

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = "" Or Target.Row < 5 Or Target.Column > 1 Then Exit Sub
Cancel = True
If ActiveSheet.AutoFilterMode Then
    ActiveSheet.AutoFilterMode = False
Else
    d1 = CLng(DateSerial([A1], Month(Target), 1))
    d2 = CLng(DateSerial([A1], Month(Target) + 1, 1) - 1)
    Range("A4").AutoFilter Field:=1, Criteria1:=">=" & d1, Operator:=xlAnd, Criteria2:="<=" & d2, Visibledropdown:=False
End If
End Sub

A+
kjin

 

[kingfadhel]

Re : Grouper des lignes sous condition

Re,
Merci kjin.