Test Afficher des colonnes

Bonjour

tout est dit dans le sujet et dans le fichier ci-joint

Merci pour votre aide

7classeur1.xlsm (18.68 Ko)

Bonjour le forum

Bonjour Joco7915

Un essai :

Private Sub Worksheet_Change(ByVal Target As Range)

     If Intersect(Target, Range("K1")) Is Nothing Then Exit Sub
If [K1] = "A" Then

Union(Columns(1), Columns(2), Columns(3)).EntireColumn.Hidden = False
 Union(Columns(4), Columns(5)).EntireColumn.Hidden = True

Else
If [K1] = "B" Then
Union(Columns(1), Columns(4), Columns(5)).EntireColumn.Hidden = False
Union(Columns(2), Columns(3)).EntireColumn.Hidden = True
End If
End If
End Sub

Bonjour

Merci pour ton aide cela fonctionne
Crdlt

Bonsoir,

Ericcoll02 bonsoir,

une autre proposition avec un SELECT et des RESIZE eet prend en compte le masquage si différent de A ou B :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("K1")) Is Nothing Then Exit Sub

    If Target.Count > 1 Then Exit Sub

    Application.ScreenUpdating = False

    Select Case Target
        Case "A"
            Range("A1").Resize(, 5).EntireColumn.Hidden = True
            Range("A1").Resize(, 3).EntireColumn.Hidden = False
        Case "B"
            Range("A1").Resize(, 5).EntireColumn.Hidden = True
            Range("A1").EntireColumn.Hidden = False
            Range("D1").Resize(, 2).EntireColumn.Hidden = False
        Case Else
            Range("A1").Resize(, 5).EntireColumn.Hidden = True
    End Select

    Application.Goto Range("A1"), Scroll:=True

    Range("K1").Select

End Sub

@ bientôt

LouReeD

Joco,

Je ne comprends pas l'ouverture de ce fil....

Pourquoi tu n'es pas resté sur celui-ci?

Rechercher des sujets similaires à "test afficher colonnes"