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

Jacky67

XLDnaute Barbatruc

• 19 Novembre 2019

• #2

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

VB:

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

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 19 Novembre 2019

• #3

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.

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Novembre 2019

• #4

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 :

VB:

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

A+

 

Pièces jointes

• SOUS.TOTAL(1).xlsx

  10.6 KB · Affichages: 6

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 20 Novembre 2019

• #5

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

 

Vote positif 0 Vote négatif