XL 2016 Afficher-Masquer Colonnes

[Atoto]

Bonjour tout le monde
Mon problème est le suivant:
dans un tableau en forme TCD je veux un code VBA qui cache les colonnes des résultats nuls "Somme en dernière ligne".
et après avoir alimenter des lignes le TCD s'actualise automatiquement et les colonnes cachées s'affichent de nouveau.
Ci joint fichier
Cordialement

 

[SLICER]

Bonjour Atoto,
souhaitez vous absolument un code VBA pour réaliser cette tâche?
Avez vous vu déjà "fouillé" dans la batterie de fonctions de l'onglet Création en jouant sur les disposition du rapport et des totaux/sous totaux? Cordialement SLICER

 

[Atoto]

Oui absolument, car ce code fait parti de mon projet et merci

 

[Atoto]

Bonjour Atoto,
souhaitez vous absolument un code VBA pour réaliser cette tâche?
Avez vous vu déjà "fouillé" dans la batterie de fonctions de l'onglet Création en jouant sur les disposition du rapport et des totaux/sous totaux? Cordialement SLICER

Bonsoir SLICER
Oui merci

 

[job75]

Bonjour Atoto, SLICER,

Pour afficher/masquer les colonnes du TCD on peut placer dans le code de la feuille "Feuil1" :

Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.RefreshAll 'actualise le TCD
Dim c As Range
With Sheets("Feuil2").[A3].CurrentRegion
    For Each c In .Rows(.Rows.Count).Cells 'ligne du Total général
        c.EntireColumn.Hidden = c = 0
    Next
End With
End Sub

Elle se déclenche quand on valide ou modifie une cellule quelconque de cette feuille.

A+

 

[Atoto]

Bonsoir Job75
Merci d'avoir partagé gratuitement ton savoir-faire.