Masquage des lignes basées sur des informations dans deux colonnes différentes

Question

Je dois pouvoir masquer une ligne si les chiffres de la colonne "c" et de la colonne "d" sont nuls. I le code ci-dessous fonctionne mais s'arrête après avoir bouclé seulement 4 lignes de données. Il n'y a rien de différent entre les données, donc je ne sais pas pourquoi ça s'arrête. Quelqu'un peut-il m'aider s'il vous plaît? Je vous remercie.

Sub Hide_Row_3() 

' Hide_Row_3 Macro 

Worksheets("Costs").Activate 
Application.ScreenUpdating = False 

Dim rCell As Range 

For Each rCell In Range("c7:c18, d7:d18") 
    If rCell = 0 And rCell(xright) = 0 Then 
     rCell.EntireRow.Hidden = True 
    Else 
     rCell.EntireRow.Hidden = False 
End If 

Next rCell 

Application.ScreenUpdating = True 

End Sub 

Answer 1

For Each rCell In Range("c7:c18") 

est suffisant.

Edition>

La boucle suivante fonctionne pour moi »

For Each rCell In Range("c7:c18") 
    If rCell = 0 And rCell.Offset(0, 1) = 0 Then 
     rCell.EntireRow.Hidden = True 
    Else 
     rCell.EntireRow.Hidden = False 
End If 

HTH!