Bonjour,
Je souhaite masquer et afficher des lignes dont le résultat est 0, pour cela j'utilise cette macro (merci le forum).
----------------------------------------------------------------------------------
Sub Macro1()
Application.ScreenUpdating = False
For i = Range("A65535").End(xlUp).Row To 1 Step -1
If Cells(i, 38).Value = 0 Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Macro2()
Macro2 Macro
Rows("1:65535").EntireRow.Hidden = False
End Sub
----------------------------------------------------------------------------------
Ces macros ne fonctionnent que sur la feuille où est installé le bouton, comment faut il faire pour que cette macro s'applique à la feuil2 puis à la feuil3 puis à la feuil5 dans un ordre définis sans concerner toutes les feuilles .
Merci de vos pistes.
Niepce26
Je souhaite masquer et afficher des lignes dont le résultat est 0, pour cela j'utilise cette macro (merci le forum).
----------------------------------------------------------------------------------
Sub Macro1()
Application.ScreenUpdating = False
For i = Range("A65535").End(xlUp).Row To 1 Step -1
If Cells(i, 38).Value = 0 Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Macro2()
Macro2 Macro
Rows("1:65535").EntireRow.Hidden = False
End Sub
----------------------------------------------------------------------------------
Ces macros ne fonctionnent que sur la feuille où est installé le bouton, comment faut il faire pour que cette macro s'applique à la feuil2 puis à la feuil3 puis à la feuil5 dans un ordre définis sans concerner toutes les feuilles .
Merci de vos pistes.
Niepce26