salut amis
j'ai trouvé un code macro et je veux que vous m'aidiez a le completer
voila le code:
Sub CacheLigne()
For Each c In Range("A18", "A25")
For i = 0 To Range("x1").Column
If c.Offset(0, i) <> 0 Then
n = 1
End If
Next
If n <> 1 Then
c.EntireRow.Hidden = True
End If
n = 0
Next
End Sub
mais le probleme si que les cellules F 23/24/25 sont plein
merci d'avance de votre aide
j'ai trouvé un code macro et je veux que vous m'aidiez a le completer
voila le code:
Sub CacheLigne()
For Each c In Range("A18", "A25")
For i = 0 To Range("x1").Column
If c.Offset(0, i) <> 0 Then
n = 1
End If
Next
If n <> 1 Then
c.EntireRow.Hidden = True
End If
n = 0
Next
End Sub
mais le probleme si que les cellules F 23/24/25 sont plein
merci d'avance de votre aide
Dernière édition: