Masquer plusieurs lignes si cellule = 0

Bonjour à tous et à toutes,

Introuvable de chez introuvable, masquer x lignes si une cellule égal = 0 ou vide ... enfin pas comme je le veux.

Je cherche à masquer 7 lignes si la cellule en i (colonne E) est égale à zéro. Je veux donc masquer la ligne 7, 8 ,9 ,10 ,11 ,12 ,13.

Et ça a répéter toutes les 7 lignes.

J'ai un truc du genre :

Sub Hide()

Range("E7:E287").Select

Dim i%

For i = 7 To 286 Step 7

If Range("E" & i) = "0" Then

Rows(i - 7 & ":" & i).Select

Selection.EntireRow.Hidden = True

End If

Mais rien ne se passe ...

Bonjour

Remplaces ta macro par celle-ci

Sub Hide()
Dim i%

  For i = 4 To 32 Step 7
    If Range("E" & i) = 0 Then
      Rows(i & ":" & i + 7).Hidden = True
    End If
  Next
End Sub

Yeap génial. Ca marche impec.

Je comprend pas pourquoi mais c'est génial

je pesais que le -7 donnais l'interval entre i et la dernière ligne que je voulais masquer ... mais bon

Merci !!!