Bonjour,

voici mon code servant a masquer certaine lignes a Zero.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub hide_zero_value_line()
 
' hide_zero_value_line Macro
 
Dim ws As Worksheet, plage As Range, c As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set plage = Union([f53:f77], [f89:f122])
For Each ws In ActiveWindow.SelectedSheets
 
For Each c In plage
If c.Value = 0 Then
c.EntireRow.Hidden = True
Else:
c.EntireRow.Hidden = False
End If
Next c
Next ws
Set plage = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Mon Porbleme est que je voudrais que la macro tourne sur une selection de feuille (variable)

Le code fonctionne sur la feuille active mais ne passe pas la suivante (j'ai pourtant selectionne plusieurs feuilles)

Merci

Eric