Cacher Colonne selon choix de liste de validation

Bonjour!

J'ai un tableau qui comporte plus de 70 colonnes, je sollicite votre aide pour une formule ou un code VB, qui me permet de n'afficher que la colonne dont le non est sélectionne dans la liste et de cacher le reste des colonnes. Merci à tous

Cordialement.

40essai-ep-2.zip (45.74 Ko)

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim p%, k%, prdts As Range
    If Target.Address = "$A$1" Then
        Application.ScreenUpdating = False
        Me.Columns.Hidden = False
        k = Me.Cells(1, Columns.Count).End(xlToLeft).Column
        Set prdts = Me.Cells(1, 3).Resize(, k - 2)
        p = WorksheetFunction.Match(Target, prdts, 0)
        With prdts
            .Columns.Hidden = True
            .Columns(p).Hidden = False
        End With
    End If
End Sub

A placer dans le module de la feuille et tester...

Cordialement.

Bonjour!

Merci pour votre réponse MFerrand, j'ai essayé et cela marche parfaitement. Merci encore.

Bonne soirée.

Rechercher des sujets similaires à "cacher colonne choix liste validation"