Excel 2003 masquer colonne ci C vide

Fermé

jeremy - 25 mai 2009 à 14:31
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 29 mai 2009 à 01:21

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

A voir également:

Excel 2003 masquer colonne ci C vide
Déplacer une colonne excel - Guide
Liste déroulante excel - Guide
Masquer conversation whatsapp - Guide
Additionner colonne excel - Guide
Trier colonne excel - Guide

1 réponse

Réponse 1 / 1

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
29 mai 2009 à 01:21

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+

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

colonne A disparue tableur excel

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters