Discussion :

[Camea]

Bonjour,

Etant novice en macro, je souhaiterais masquer les colonnes C à R si les valeurs de chaque cellule est à 0 de la ligne 3 à 169 pour chaque colonne.

Merci de votra aide.

[anasecu]

Bonjour,

Une façon de le faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub masquer()
Const l_deb = 2
Const l_fin = 169
Const c_deb = 3 ' C
Const c_fin = 18 ' R
Dim col As Integer
    For col = c_deb To c_fin
        If Application.Sum(Cells(l_deb, col).Resize(l_fin - l_deb - 1, 1)) = 0 Then
            Columns(col).Hidden = True
        End If
    Next col
End Sub

[Camea]

Merci beaucoup;