(RESOLUT) afficher masquer colonnes par liste deroulante

[chaelie2015]

Bonjour Forum

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

ci joint le fichier exemple
Merci par avance

 

[DoubleZero]

Bonjour, chaelie2015, le Forum,

Que donnerait ceci ?

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]

Bonjour Chaelie,

voir fichier joint

à+
Philippe

Edit: Bonjour 00

 

[chaelie2015]

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