XL 2013 Cacher Colonne si cellule vide

[susaita]

Bonsoir a tous,
dans l'onglet Total Général du fichier ci-joint je désire avoir un code qui me permet une fois je clique sur l'onglet de cacher les colonnes dont la cellule de la ligne 12 égale à 0

NB: je ne veux pas un code lié a un bouton mais plutôt un code qui s'exécute une fois je clique sur l'onglet en question (Total Général)

Cordialement
Susaita

 

[DoubleZero]

Bonjour, susaita, le Forum,

Comme ceci ?

Option Explicit
Private Sub Worksheet_Activate()
    Dim c As Range
    Cells.EntireColumn.Hidden = False
    For Each c In Rows("12:12").SpecialCells(xlCellTypeFormulas, 23)
        If c.Value = 0 Then c.EntireColumn.Hidden = True
    Next
End Sub

A bientôt

 

[JBARBE]

Bonjour à tous,

Peut-être ceci !
bonne journée !

 

[susaita]

Bonjour Doublezero, JBARBE
Merci beaucoup pour vos réponses c'est exactement ce que je souhaitais avoir

Cordialement
Susaita

 

[susaita]

re,
en appliquant le code sur mon fichier d'origine beug a cause d'un autre code présent sur la même feuille avec le quel je cache et je visualise les feuilles du classeur comme vous pouvez voir sur le fichier ci-joint
je ne sais pas la cause ....

(EDIT) : j'ai trouvé la solution après une petite recherche
il manquait

Dim ctrl As OLEObject