gestion affichage de rangées suivant valeur de cellules

[chifounou]

Bonjour,

J'ai tenté différents bouts de code à la racine de ma feuille, sans succès.

La situation : j'ai des cellules de B20 à B100 pouvant prendre la valeur 1 ou 0

J'aimerais que quand une de ces cellules change de valeur, cela masque toutes les rangées où se trouve en intersection une valeur 0 case B, et que cela affiche toutes les rangées ou la case B correspondante a une valeur de 1

Je la refais : ça doit donc scanner B20:B100 (par une boucle) et quand une cellule B prend 1 pour valeur, afficher sa rangée, sinon la masquer

Merci si vous pouvez me dépanner

 

[max.lander]

Re : gestion affichage de rangées suivant valeur de cellules

Salut,


à coller dans thisworkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

For Each cell In Range("B1:B100")

If cell.Value = 0 Then

Rows(cell.Row).Hidden = True

Else
If cell.Value = 1 Then

Rows(cell.Row).Hidden = False

End If
End If

Next cell


End Sub

A+

 

[chifounou]

Re : gestion affichage de rangées suivant valeur de cellules

Merci pour le coup de main !