Afficher - masquer des colonnes par macro

Bonjour à tous,
Peut on par une macro afficher ou masquer des colonnes par une liste ? voir fichier …Merci
je sais faire des macros pour fermer ou afficher des colonnes mais pour le faire fonctionner par une liste ?
Merci pour votre aideAfficher-masquer.xls (27 Ko)

Bonjour

A tester

La macro sur feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("H1")) Is Nothing Then  'Sur modification cellule H1
    If LCase(Range("H1").Value) = "masquer" Then                     'Si sa valeur est égale à "masquer", alors
      Range("B:F").EntireColumn.Hidden = True                        'Je masque
    Else                                                             'Sinon
      Range("B:F").EntireColumn.Hidden = False                       'J'affiche
    End If
  End If
End Sub

Afficher-masquer.xls (31,5 Ko)

Super ça marche mais (simple question de curiosité) il est en VBA…ne peut on pas le faire sur macro excel et l’attacher à une liste ? car je voudrais le refaire sur un autre tableau .Merci

Re,
Ou est le problème

Range(“H1”) c’est la cellule qui contient la liste
Range(“B:F”) c’est les colonnes à afficher ou à masquer

Tu copies la macro, et tu là colles dans la feuille à traiter, je dis bien la feuille et non dans un module

1 J'aime