Masquer les lignes contenant un 0 puis les réafficher après impression

[jm]

Bonjour à tous et félicitations pour ce forum !!

Alors voilà, j'aimerais masquer les lignes dont la colonne "A" contient le chiffre "0" et les réafficher après impression, j'ai déjà trouvé cette macro, mais comment la modifier pour qu'elle masque bien les cellules contenant 0 dans la colonne A, et non les cellules vides dans A ??

Voici le code

----------------------


Sub CommandButton1_Click()
Application.ScreenUpdating = False
For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If IsEmpty(Cells(r, "A")) Then Rows(r).Hidden = True
Next r
ActiveSheet.PrintOut
Rows().Hidden = False
End Sub


----------------------------------

Merchi !
jm

 

[Gérard DEZAMIS]

Bonchoir JM

If Cells(r, "A").Value = "0" Then Rows(r).Hidden = True

doit te donner le résultat espéré

A pluche !
GD

 

[jmt]

ça marche impecc, merci du coup de pouce ! )