Appliquer une macro sur toutes les feuilles du classeur

[nesnes]

bonjour à tous,

J'ai beau chercher et essayer je ne trouve pas. Voici la macro ci-dessous pour masquer les lignes ayant 0 comme résultat dans la colonne S. Comment l'appliquer à tous les onglets du classeur ?
Merci beaucoup pour votre aide!!

Sub Zero()
Dim Cel As Range
For Each Cel In Range("S12:S800") 'Plage à adapter à la tienne
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = True
End If
Next
End Sub

 

[Pierrot93]

Re : Appliquer une macro sur toutes les feuilles du classeur

Bonjour,

modifie peut être comme suit :

Option Explicit
Sub Zero()
Dim Cel As Range, ws As Worksheet
For Each ws In Worksheets
    For Each Cel In ws.Range("S12:S800")
        If Cel.Value <> "" And Cel.Value = 0 Then
            Cel.EntireRow.Hidden = True
        End If
    Next Cel
Next ws
End Sub

bonne journée
@+

 

[nesnes]

Re : Appliquer une macro sur toutes les feuilles du classeur

Bonjour Pierrot,

Merci beaucoup cela fonctionne c'est top et avoir une réponse aussi vite c'est super sympa!!
J'abuse encore en te demandant comment appliquer la macro inverse (ci-dessous) sur tous les classeurs. J'ai essayé en suivant ce que tu avais fait mais je n'y arrive pas.

Sub Affiche()
Cells.Select
Selection.EntireRow.Hidden = False
Range("A1").Select
End Sub

Merci et bonne journée à toi également.
Linda

 

[Pierrot93]

Re : Appliquer une macro sur toutes les feuilles du classeur

Re,

peut être ainsi, avec un test pour éviter les xla et le classeur de macro perso :

Option Explicit
Sub Zero()
Dim Cel As Range, ws As Worksheet, wb As Workbook
For Each wb In Workbooks
    If Not wb.IsAddin And Not LCase(wb.Name) Like "perso*" Then
        For Each ws In wb.Worksheets
            ws.Rows.Hidden = False
        Next ws
    End If
Next wb
End Sub

 

[nesnes]

Re : Appliquer une macro sur toutes les feuilles du classeur

Parfait ça fonctionne.
Merci encore!