Macro pour Afficher Masquer colonne E par double clic

Bonjour le forum

Afficher Masquer colonne par double clic Cellule C2

Colonne E à afficher / Masquer

A mettre dans ThisWorkbook

Merci à vous pour vos éventuels retours

Bonjour

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
        Cancel = True
        If Range("E:E").EntireColumn.Hidden = True Then
            Range("E:E").EntireColumn.Hidden = False
        Else
            Range("E:E").EntireColumn.Hidden = True
        End If
End Sub

Bye !

Bonjour ...

autre proposition (avec le Not, très peu souvent utilisé dans les codes que je lis) :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = Not Cancel
    Columns("E:E").Hidden = Not Columns("E:E").Hidden
End Sub

Il me semble l'avoir déjà proposé avec une autre évènementielle, non ?

Bonjour,

Juste @ Ordonc :

Columns("E:E").Hidden = Not Columns("E:E").Hidden

Merci car grâce à cette ligne que vous venez de proposer, vous venez de me rappeler ce que Thierry Pourtier - alias Ti m'avait donné (de son vivant) et que j'avais complètement oubliée.

Crdlt

Bonjour à tous

Alors là connaissait pas ces macros

Mais alors on peut cliquer sur n'importe quelle cellule pour afficher masquer?

Bon je mets résolu mais je voudrais bien des explications

Alors là chapeau!!!

Merci à vous

Cordialement