masquer lignes contenant un chiffre et reafficher toutes les lignes

[bebe1310]

Bonjour a tous,



Voici mon probleme:


Je voudrais avec une macro afficher toutes les lignes masquées et

masquer les lignes dont la colonne D contient 0


est -ce possible?



merci

 

[michel]

bonjour Bebe1310


tu peux essayer les macros ci dessous pour masquer ou afficher les lignes

Sub MasquerSi_0()
Dim Val As Range
ActiveSheet.Rows.Hidden = False
For Each Val In Range("D1" & Range("D65536").End(xlUp).Row)
If Val = 0 Then Rows(Val.Row).Hidden = True
Next Val
End Sub

Sub AfficheToutesLesLignes()
ActiveSheet.Rows.Hidden = False
End Sub

bon apres midi
michel

 

[michel]

rebonjour

c'est pas mon jour ...;o(
pour la premiere macro c'est plutot

Sub MasquerSi_0()
Dim Val As Range
For Each Val In Range("D1" & Range("D65536").End(xlUp).Row)
If Val = 0 Then Rows(Val.Row).Hidden = True
Next Val
End Sub


bon apres midi
michel

 

[bebe1310]

c'est vraiment nickel


merci michel