Bonsoir Cher Tous
A partir des contributions du forum j'ai créé un code pour masquer/démasquer des lignes qui ont zéro pour des plages spécifiques entre H9 à I281
Je veux modifier le code pour masquer/démasquer les lignes si les cellules des colonnes H et I sont égales à zéro.
Par exemple : Masquer la ligne entière uniquement Si cellules H9 = 0 et I9 = 0.
Fichier en attache
Merci d'avance pour tout appui
Ci-dessous le code existant :
A partir des contributions du forum j'ai créé un code pour masquer/démasquer des lignes qui ont zéro pour des plages spécifiques entre H9 à I281
Je veux modifier le code pour masquer/démasquer les lignes si les cellules des colonnes H et I sont égales à zéro.
Par exemple : Masquer la ligne entière uniquement Si cellules H9 = 0 et I9 = 0.
Fichier en attache
Merci d'avance pour tout appui
Ci-dessous le code existant :
VB:
Private Sub CommandButton1_Click()
Dim xcell, etat As Boolean
Application.ScreenUpdating = False
For Each xcell In Range("H9:I33,H37:I58,H62:I98,H107:I142,H146:I160,H164:I184,H188:I195,H197:I264,H266:I281")
If xcell = 0 Then xcell.EntireRow.Hidden = True
Next xcell
End Sub
Private Sub CommandButton2_Click()
Range("H9:I33,H37:I58,H62:I98,H107:I142,H146:I160,H164:I184,H188:I195,H197:I264,H266:I281").EntireRow.Hidden = False
End Sub