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