Masquer les colonnes si une cellule est vide

[Merlin258413]

Bonjour à tous,
J'ai un tableau qui va de la colonne C à la colonne Z
Je désire masquer les colonnes si la ligne 9 est vide donc C9,D9,....Z9
Pouvez vous m'aider svp ?

Excellente soirée

 

[DoubleZero]

Re : Masquer les colonnes si une cellule est vide

Bonjour, Merlin258413, le Forum,

Comme ceci ?

Option Explicit
Sub Colonne_masquer()
    Application.ScreenUpdating = False
    Dim c As Range
    For Each c In Range("c9:z9")
        If c.Value = "" Then Columns(c.Column).Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[Merlin258413]

Re : Masquer les colonnes si une cellule est vide

C'est parfait merci beaucoup

 

[DoubleZero]

Re : Masquer les colonnes si une cellule est vide

Re-bonjour,

Peut-être est-il préférable de procéder comme suit :

Option Explicit
Sub Colonne_masquer()
    Application.ScreenUpdating = False
    Dim c As Range
    Range("c9:z9").EntireColumn.Hidden = False
    For Each c In Range("c9:z9")
        If c.Value = "" Then Columns(c.Column).Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[Merlin258413]

Re : Masquer les colonnes si une cellule est vide

Pourriez-vous svp, pour ma culture, m'expliquer la différence entre les 2 méthodes

La 1er masque les colonnes ayant les cellules vides
La 2nde masque toutes les colonnes et affichent les noms vides

Pourquoi la 2ème serait elle préférable ? C'est vraiment pour mon apprentissage ?

Merci pour votre aide

 

[DoubleZero]

Re : Masquer les colonnes si une cellule est vide

Re-bonjour,

... pour mon apprentissage...

Je suis également en apprentissage 😱 et j'ai peut-être tort ( ? )...

...Pourquoi la 2ème serait elle préférable ?...

Il est préférable d'afficher, d'abord, toutes les colonnes au cas où l'une d'elles, démasquée manuellement, comporterait en ligne 9 une valeur non présente initialement.

Ne pas hésiter à revenir si mes "propos" manquent de clarté.

A bientôt 🙂

 

[Merlin258413]

Re : Masquer les colonnes si une cellule est vide

Merci c'est très clair