Faire disparaitre une colonne selon un choix dans une cellule

[dipsiemarin]

Bonjour le forum

je cherche à savoir si c'est possible selon mon besoin
j'ai besoin de faire disparaitre une colonne selon un choix validé en B4

ci joint explication dans fichier
merci

 

[Gorfael]

Re : Faire disparaitre une colonne selon un choix dans une cellule

Salut dipsiemarin et le forum
Un exemple en pièce jointe, par macro Change.
A+

 

[ERIC S]

Re : Faire disparaitre une colonne selon un choix dans une cellule

Re

à essayer

edit : Bonjour Gorfael

 

[dipsiemarin]

Re : Faire disparaitre une colonne selon un choix dans une cellule

Bonjour Gorfael,

c'est exactement ce que je voulais mais par contre je pourrais connaitre les étapes pour réaliser cette operation

merci par avance

 

[dipsiemarin]

Re : Faire disparaitre une colonne selon un choix dans une cellule

merci Eric S

le fichier fonctionne aussi mais pour ne pas mourir bete serait il possible de connaitre les étapes pour réaliser cette operation

merci

 

[ERIC S]

Re : Faire disparaitre une colonne selon un choix dans une cellule

Re

dans ta cellule B4, sous XL 2003 : Données validation, liste .. et tu écris tes choix possibles

pour la macro, penser à utiliser l'enregistreur de macro, que l'on peut souvent simplifier après

fais des essais du style :

outils macros nouvelle macro. tu sélectionnes tes colonnes et tu fais masquer ou afficher
tu arrêtes ta macro et tu va voir le code

 

[dipsiemarin]

Re : Faire disparaitre une colonne selon un choix dans une cellule

Re,

j'ai compris pour la liste mais par contre la macro je largue un peu j'ai excel 2007

 

[Gorfael]

Re : Faire disparaitre une colonne selon un choix dans une cellule

Salut dipsiemarin et le forum
Pour B4, Eric S ta fourni l'explication
Clic-droit sur le nom de l'onglet>>Menu contextuel>>Visualiser le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
    Columns.Hidden = False
    Select Case UCase(Target)
        Case "GAZ"
            Columns(4).Hidden = True
        Case "FOD"
            Columns(3).Hidden = True
    End Select
End If
End Sub

Worksheet_Change se lance chaque fois qu'une cellule sort du mode édition => target contient les cellule concernées et est mise à jour par Excel
If Target.Address(0, 0) = "B4" Then => si l'adresse de la cible en relatif/relatif est B4, alors
Columns.Hidden = False => afficher toutes les colonnes
UCase(Target) => la valeur de target en majuscules
Columns(4).Hidden = True => masquer la colonne D (D=4)
A+

 

[dipsiemarin]

Re : Faire disparaitre une colonne selon un choix dans une cellule

OK merci j'ai compris effectivement

merci GORFAEL et ERIC S
bonne soiree