excel 2003 masquer colonne ci C vide

Question

Bonjour,

Je vous explique mon problème .

J'ai un tableau qui va de A1 à F15, les cellules de la ligne 1 contiennent des titres.
Chacune des cellules "titres" à pour formules "=SI(Feuil1!A***<>"";Feuil1!A***;"")" et fait donc reference à une valeur écrit dans une autre feuille qui me sert de BDD.

Mon objecti est que si la cellule contenant le titre est vide (non renseignée dans la BDD), alors la colonne entière (qui donc n'a pas de titre) s'efface.
La vba devra prendre ausii en compte que si une valeur est saisie dans la cellule des titre (via BDD), alors la colonne devra réapparaître! 

Merci pour votre aide 

Cordialement

Jérémy

pilas31 · Answer

Bonjour,

Je propose le code suivant :
Private Sub Worksheet_Calculate()
Dim Cellule As Range
For Each Cellule In Range("A1:F1")
    If Cellule.Value = "" Then
        Columns(Cellule.Column).EntireColumn.Hidden = True
    Else
        Columns(Cellule.Column).EntireColumn.Hidden = False
    End If
Next Cellule
End Sub

en copiant dans le code de la feuille concernée (en faisant clic droit sur le nom de l'onglet option "visualiser le code")

A+

Excel 2003 masquer colonne ci C vide

1 réponse

Discussions similaires

Newsletters