Masquer certaines colonnes via une liste déroulante

k4RADOC · 6 Février 2013

Bonjour,

Je cherche à masquer certaines colonnes de mon tableau lorsque je selectionne une option dans ma liste déroulante.
Ma liste déroulante se trouve en G8 et comporte 4 options. La première permet d'afficher mon tableau en entier.
Je souhaite que la deuxième masque les colonnes (N, O, P, Q, R, T, U, V)
La troisième devrait masquer (N O P, U et V)
La dernière devrait masquer (R, T, U, V)

Comment puis je faire ?

Merci de vos réponses en espérant que l'on puisse m'aider.

Lolote83 · 6 Février 2013

Re : Masquer certaines colonnes via une liste déroulante

Salut k4RADOC,
Voici peut être la solution.
@+ Lolote83

phlaurent55 · 6 Février 2013

Re : Masquer certaines colonnes via une liste déroulante

Bonjour à tous

une correction à partir du fichier de Lolote

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Address = "$G$8" Then
        Select Case Target.Text
            Case Is = "TOUT"
                Range("M:W").EntireColumn.Hidden = False
            Case Is = "2ème"
                Range("M:W").EntireColumn.Hidden = True
                Range("N:N,O:O,P:P,Q:Q,R:R,T:T,U:U,V:V").EntireColumn.Hidden = False
            Case Is = "3ème"
                Range("M:W").EntireColumn.Hidden = True
                Range("N:N,O:O,P:P,U:U,V:V").EntireColumn.Hidden = False
            Case Is = "4ème"
                Range("M:W").EntireColumn.Hidden = True
                Range("R:R,T:T,U:U,V:V").EntireColumn.Hidden = False
        End Select
        Range("A1").Select
    End If
    Application.ScreenUpdating = True
End Sub

à+
Philippe

Lolote83 · 6 Février 2013

Re : Masquer certaines colonnes via une liste déroulante

Salut phlaurent55
J'y avais pensé mais trop tard, tu es passé par là.
Merci pour le complément .....
@+ Lolote83

k4RADOC · 6 Février 2013

Re : Masquer certaines colonnes via une liste déroulante

Réactivité au top
Ca marche du feu de dieu sauf pour réafficher toutes les colonnes je vais continuer de chercher sinon je reviens vers vous !
Encore merci pour cette aide qui me fait gagner un temps précieux.

phlaurent55 · 6 Février 2013

Re : Masquer certaines colonnes via une liste déroulante

Re,

k4RADOC à dit:
Réactivité au top
Ca marche du feu de dieu sauf pour réafficher toutes les colonnes ...........

Mon fichier joint au post#3 répond à cette demande

Code:

            Case Is = "TOUT"
                Range("M:W").EntireColumn.Hidden = False

à+
Philippe

k4RADOC · 6 Février 2013

Re : Masquer certaines colonnes via une liste déroulante

J'ai refait la manip et cette fois ça marche j'ai du rajouter un symbol par inadvertance la première fois, encore merci vos conseils m'ont été très utiles.

Masquer certaines colonnes via une liste déroulante

k4RADOC

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

Lolote83

XLDnaute Barbatruc

k4RADOC

XLDnaute Nouveau

phlaurent55

Nous a quittés en 2020

k4RADOC

XLDnaute Nouveau

Discussions similaires