Macro sur selection de feuilles
Bonjour,
voici mon code servant a masquer certaine lignes a Zero.
Code:
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
