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
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