Afficher / Masquer colonnes non contigues par double clic

Bonjour le forum

J'ai cette macro dans ThisWorkbook

Je voudrais compléter pour afficher / masquer la colonne E toujours en double clic cellule D2

Merci à vous pour vos éventuels retours

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Address
    Case "$A$3": If Not Target.Comment Is Nothing Then AfficherMasquerDistanceMoisPrecedent
    Case "$D$2": If Not Target.Comment Is Nothing Then AfficherMasquerColonne
End Select
End Sub

Bonjour al87, le forum,

Je voudrais compléter pour afficher / masquer la colonne E toujours en double clic cellule D2

Un essai....

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 Cancel = Not Cancel
  Select Case Target.Address
    Case "$A$3": If Not Target.Comment Is Nothing Then AfficherMasquerDistanceMoisPrecedent
    Case "$D$2"
     If Not Target.Comment Is Nothing Then
      AfficherMasquerColonne
      Columns("E:E").Hidden = Not Columns("E:E").Hidden
     End If
  End Select
End Sub

Cordialement,

Bonjour xorsankukai

Merci à toi ça fonctionne nickel.

J'ai oublié de dire (comme d'habitude!!!) qu'il faut fermer la colonne E que sur la feuille Janvier 2022. Après je mets la ligne en commentaires.

Pour tous les autres mois de Février 2022 à Juillet 2022 si je fais un double clic ne doit s'afficher/ masquer que la colonne H

Mais je pense que ça entraine trop de modifs.

Encore merci

Bonne journée

Cordialement

Rechercher des sujets similaires à "afficher masquer colonnes contigues double clic"