Macro pour masquer des colonnes avec condition

[robindr400]

Bonjour
Je voudrais qu'avec une macro je puisse masquer toutes les colonnes d'une feuille ou sur la première ligne il y a la valeur 1. Si possible applicable des colonnes A à BZ de chaque feuille et cela à l'ensemble du classeur.

Help ...

Merci beaucoup de votre aide

 

[Pierrot93]

Re : Macro pour masquer des colonnes avec condition

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
Dim ws As Worksheet, i As Long
Application.ScreenUpdating = False
For Each ws In Worksheets
    With ws
        For i = 1 To 78
            .Columns(i).Hidden = .Cells(1, i) = 1
        Next i
    End With
Next ws
Application.ScreenUpdating = True
End Sub

bon après midi
@+