Masquer des colonnes sur plusieurs pages en même temps

Le 23/09/2014 à 22:23

Bonjour

sur plusieurs feuilles d'un classeur , (ex feuil5; feuil6; feuil13)

=>feuil étant le nom vba des feuilles choisies

je souhaiterais grâce à un bt macro afficher/masquer les colonnes (K : AX ) de toutes les feuilles en 1 seul clic

si j'appuie 1 fois sur le bouton => masquage des colonnes

si j'appuie une 2e fois => affichage

est ce possible ?

merci de vos réponses

cordialement

Peps59

Le 23/09/2014 à 22:43

Bonjour

Essaie ce code :

Sub MasquerDémasquer()
    Feuilles = Array("Feuil5", "Feuil6", "Feuil13")
    For Each F In Feuilles
        If Sheets(F).Columns("K:AX").EntireColumn.Hidden = True Then
            Sheets(F).Columns("K:AX").EntireColumn.Hidden = False
        Else
            Sheets(F).Columns("K:AX").EntireColumn.Hidden = True
        End If
    Next F
End Sub

Bye !

Le 23/09/2014 à 22:59

Bonjour

merci pour le code

cependant, quand j'active la macro j'ai un msg d'erreur

le début de la macro est surligné en jaune