(RESOLUT) afficher masquer colonnes par liste deroulante

chaelie2015 · 27 Décembre 2017

Bonjour Forum

Je souhaite afficher des colonnes par une liste déroulante selon les cas.

ci joint le fichier exemple
Merci par avance

DoubleZero · 27 Décembre 2017

Bonjour, chaelie2015, le Forum,

Que donnerait ceci ?

VB:

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$C$2" Then
        Columns.Hidden = False
        Select Case c
        Case "LOT1": Range("H:K,N:S").EntireColumn.Hidden = True
        Case "LOT2": Range("E:G,L:Q").EntireColumn.Hidden = True
        Case "LOT3": Range("E:M,R:S").EntireColumn.Hidden = True
        Case "": Columns.Hidden = False
        End Select
    End If
End Sub

A bientôt 🙂

P. S. : Bonjour, Philippe 😀

phlaurent55 · 27 Décembre 2017

Bonjour Chaelie,

voir fichier joint

à+
Philippe

Edit: Bonjour 00

chaelie2015 · 27 Décembre 2017

Bonjour Double 00, philippe
merci pour les réponses
pblm résolut
a+

(RESOLUT) afficher masquer colonnes par liste deroulante

chaelie2015

XLDnaute Accro

Pièces jointes

DoubleZero

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Pièces jointes

chaelie2015

XLDnaute Accro

Discussions similaires

(RESOLUT) afficher masquer colonnes par liste deroulante

chaelie2015

XLDnaute Accro

Pièces jointes

DoubleZero

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Pièces jointes

chaelie2015

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency