Masquer lignes

Bonjour les amis,

Je bataille depuis ce matin sur un module que je n'arrive pas à finaliser. Je souhaite MASQUER les lignes avec la VALEUR "0" dans une PLAGE allant de A1:A1700 pour CHAQUE ONGLET qui COMMENCE PAR F_

Sub TestFinal()
Dim Ws As Worksheet
Dim cellule As Range

    For Each Ws In Worksheets
        If Ws.Name Like "F_*" Then

    For Each cellule In Range("a1:a1700")
        If cellule.Value = "0" Then cellule.EntireRow.Hidden = True
    Next cellule

        End If
    Next
Ws.Activate

End Sub

Quelqu'un peut m'aider s'il vous plaît ?

Bonjour,

Ça ne marche pas ?

Non malheureusement, ça marche uniquement sur le premier onglet et je suis obligé de forcer l'arrêt de la macro pour arrêter la boucle.

Donc pas top pour automatiser le système

Tu devrais peut-être qualifier la plage que tu balaies .

Avec : Range("a1:a1700") tu restes jusqu'au bout sur la feuille active.

Ws.Range("a1:a1700")

devrait déjà être mieux !

Cordialement.

Voilà le fichier en question avec sa macro

Bonjour,

Sans doute comme ça :

Sub galopin()
Dim i%, o
Dim Ws As Worksheet
   For Each o In Worksheets
       If o.Name Like "F_*" Then
       Set Ws = Worksheets(o.Name)
         For i = 1 To 1700
             If Ws.Cells(i, 1).Value = "0" Then Ws.Rows(i).Hidden = True
         Next
        End If
    Next
End Sub

A+

Merci infiniment MFerrand ça fonctionne parfaitement

Merci à toi aussi galopin01, je viens de tester ça fonctionne nickel.

Merci encore et à bientôt