Afficher une valeur dans cellule si des lignes sont masquées ou apparentes

[chaelie2015]

Bonjour Forum
Je souhaite afficher 1 ou 0 dans la cellule ( exemple : Z1) si les lignes de 12 au 20 sont masquées afficher dans la cellule Z1 = 0 sinon 1
salutations

 

[Jacky67]

Bonjour,
Avec une fonction personnalisée peut-être

Function MasquerAfficher(plage)
  MasquerAfficher = Abs(Not plage.Rows.Hidden)
End Function

Et dans la cellule Z1
=MasquerAfficher(12:20)

 

[Robert]

Bonjour Chalie, jacky, bonjour le forum,

le code ci-dessous fonctionne mais pas en automatique car je ne vois pas comment utiliser une événementielle sur le masquage/affichage de lignes. Si ce n'est la fonction personnalisée de Jacky.

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)

Set O = Worksheets("Feuil1") 'définit l'onglet O )à adapter
O.Range("Z1") = IIf(O.Rows(12 & ":" & 20).Hidden = True, 0, 1)
End Sub

 

[job75]

Bonjour chaelie2015, Jacky67, Robert,

A condition qu'il y ait des valeurs dans toutes les cellules A12:A20 on peut utiliser en Z1 du fichier joint la formule :

=SIGNE(SOUS.TOTAL(103;A12:A20))

A+

 

[chaelie2015]

Bonjour Jacky, Robert et Job
merci pour ces différentes propositions
Souci résolu
a+