Mette à jour un sommaire à chaque ligne masquée

Fermé
everes Messages postés 169 Date d'inscription lundi 31 mars 2008 Statut Membre Dernière intervention 22 avril 2021 - 17 avril 2021 à 21:34
everes Messages postés 169 Date d'inscription lundi 31 mars 2008 Statut Membre Dernière intervention 22 avril 2021 - 22 avril 2021 à 20:05
Bonsoir,

Je possède un classeur contenant plusieurs onglets dont l'un d'entre eux est le sommaire ; sommaire contenance 51 annexes allant de l'indice 0 à 51.
Sur la colonne Q du sommaire, nous retrouvons les numéros des indices :
Q11 = 0
Q12 = 1
Q13 = 2
Q14 = 3
...
Q63 = 51

J'aimerais un code vba qui à chaque ligne masquée entre Q11 et Q64, les numéros d'indice se mettent à jour automatiquement. Ainsi, si je masque Q12, Q13 = 1, Q14 = 2, ainsi de suite.
Et quand je réaffiche Q12, on retrouve la série su départ.

J'ose espérer qu'Excel possède une fonction permettant de faire cela plus rapidement, sans avoir à pondre un code rempli de if.

Je vous remercie.

Configuration: Windows / Chrome 89.0.4389.128
A voir également:

2 réponses

yg_be Messages postés 23348 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 novembre 2024 Ambassadeur 1 554
17 avril 2021 à 21:41
bonjour,
j'ose espérer que tu expliques clairement et factuellement ce que tu souhaites obtenir.
0
everes Messages postés 169 Date d'inscription lundi 31 mars 2008 Statut Membre Dernière intervention 22 avril 2021 7
18 avril 2021 à 15:16
Bonjour,

(Enorme sourire), en me relisant je trouve que c'est assez claire je te demande donc de m'indiquer les points qui te sont vagues pour que je reformule.

Je te remercie.
0
yg_be Messages postés 23348 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 novembre 2024 1 554 > everes Messages postés 169 Date d'inscription lundi 31 mars 2008 Statut Membre Dernière intervention 22 avril 2021
18 avril 2021 à 17:39
je pense que ce code suffit:
Function estvisible(rng As Range) As Boolean
    isvisible = Not (rng.EntireColumn.Hidden Or rng.EntireRow.Hidden)
End Function

il te permet ensuite d'utiliser, dans les formules, la fonction
estvisible
qui retourne vrai ou faux suivant qu'une cellule est visible ou masquée.
exemple d'utilisation:
=estvisible(a1)


tu peux alors utiliser les fonctions de base de Excel pour réaliser ce que tu souhaites.
0
everes Messages postés 169 Date d'inscription lundi 31 mars 2008 Statut Membre Dernière intervention 22 avril 2021 7
22 avril 2021 à 20:05
Bonjour,

J'espère que vous allez bien ; navré pour la réponse tardive on ne cesse de courir à droite et à gauche.

Je vous remercie pour ce retour, je vais essayer de comprendre en l'appliquant puis reviendrai vers vous.

Bonne fin de journée.
0