SIMPLIFICATION MACRO MASQUER AFFCIHER COLONNES

[THIERRY35]

Bonjour,
j'utilise le code suivant pour masquer ou afficher des colonnes lorsque l'on clique sur la cellule c9.
on masque colonnes de D à H

Peut on simplifier ce code ?

Merci
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case Is = "$C$9"
Range(Target.Address).Offset(0, 1).EntireColumn.Hidden = Not Range(Target.Address).Offset(0, 1).EntireColumn.Hidden
Range(Target.Address).Offset(0, 2).EntireColumn.Hidden = Not Range(Target.Address).Offset(0, 2).EntireColumn.Hidden
Range(Target.Address).Offset(0, 3).EntireColumn.Hidden = Not Range(Target.Address).Offset(0, 3).EntireColumn.Hidden
Range(Target.Address).Offset(0, 4).EntireColumn.Hidden = Not Range(Target.Address).Offset(0, 4).EntireColumn.Hidden
Range(Target.Address).Offset(0, 5).EntireColumn.Hidden = Not Range(Target.Address).Offset(0, 5).EntireColumn.Hidden

End Select
End Sub

 

[phlaurent55]

Bonjour Thierry,

comme ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case Is = "$C$9"
Columns("D:H").Hidden = Not Columns("D:H").Hidden
End Select
End Sub

à+
Philippe

 

[phlaurent55]

Re,

mieux encore avec ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C9")) Is Nothing Then
Columns("D:H").Hidden = Not Columns("D:H").Hidden
End If
End Sub

à+
Philippe

 

[THIERRY35]

Bonjour,

merci pour le code ça fonctionne parfaitement