Bonjour,
voici mon code servant a masquer certaine lignes a Zero.
Mon Porbleme est que je voudrais que la macro tourne sur une selection de feuille (variable)
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
Le code fonctionne sur la feuille active mais ne passe pas la suivante (j'ai pourtant selectionne plusieurs feuilles)
Merci
Eric
Partager