Bonsoir,
une proposition d'adaptation, mais sans fichier impossible de savoir si cela pourrait être fait :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Cel As Range
If Not Intersect(Target, Range("A2:A4")) Is Nothing Then
Cancel = True
Set Cel = Range("1:1").Find(Target, lookat:=xlWhole)
If Not Cel Is Nothing Then
Cel.Resize(, Cel.MergeArea.Columns.Count).EntireColumn.Hidden = Not Cel.Resize(, Cel.MergeArea.Columns.Count).EntireColumn.Hidden
If Target.Interior.Color = RGB(255, 0, 0) Then Target.Interior.Color = RGB(0, 255, 0) Else Target.Interior.Color = RGB(255, 0, 0)
End If
End If
End Sub
Le fichier :
Un double clic sur l'année à faire apparaitre : vert affiché, rouge masqué.
@ bientôt
LouReeD