Je souhaite masquer les lignes (0 en colonne E) de plusieurs onglets de mon classeur.
J'ai trouvé un code mais j'ai du mal à l'adapter pour le faire sur plusieurs onglets.
Il doit manquer un petit quelquechose qui pourrait faire que ca marche
Sub Cach()
Dim LastLig As Long, i As Long, z As Integer
For z = 2 To Sheets.Count - 2
With Sheets(z)
LastLig = .Cells(.Rows.Count, "E").End(xlUp).Row
For i = 1 To LastLig
If .Range("E" & i).Text = "0" Then .Rows(i).Hidden = True
Next i
Simple curiosité j'ai essayé d'appliquer ce code qui marche très bien pour tous les onglets (sauf le 1er et les 2 derniers).
J'ai essayé de l'appliquer pour une feuille quelconque mais ca ne fonctionne pas
Sub Cachfeu()
Dim LastLig As Long, i As Long
With Active.Sheets.Activate
LastLig = .Cells(.Rows.Count, "E").End(xlUp).Row
For i = 29 To LastLig
If .Range("E" & i).Text = "0" Then .Rows(i).Hidden = True
Next i
End With
End Sub
Pouvez vous svp me dire ce qui ne fonctionne pas
Merci beaucoup
Philippe
Si... tu veux travailler sur plusieurs onglets tu peux essayer d'adapter la macro :
Code:
Sub Cachfeu()
Dim i As Long, N as Byte
For N = 2 To Sheets.Count - 1 'pas le premier ni le dernier
With Sheets(N)
For i = 29 To .Cells(.Rows.Count, "E").End(xlUp).Row
.Rows(i).Hidden = .Range("E" & i) = 0 'ou texte
Next
End With
Next
End Sub