XL 2013 (RESOLU) Aide pour afficher et masquer

[chaelie2015]

Bonjour Forum
Dans la feuille intitulée 'Feuille de formulaire', j'ai mis en place deux tableaux qui se masquent et s'affichent automatiquement en fonction des valeurs respectives de deux cellules, U11 et U64. À ce stade, le code fonctionne correctement, mais j'ai rencontré des difficultés pour remédier aux problèmes suivants :

1. Les lignes 12, 63 et 116 ne doivent pas être masquées (par défaut, elles sont affichées).
2. Lorsque je clique sur le bouton bleu, toute la plage de U11 (de la ligne 13 à la ligne 62) se masque de manière inattendue.
ci joint le fichier
A+

 

[sylvanu]

Bonjour Chaelie,
Un essai en PJ en jouant sur les limites :

If rng.Row < 13 + numLignes Then
et
If rng.Row < 66 + numLignes Then

Ensuite pour le second point, le lancement de ViderPlagesNommees touche à la Feuille de formulaire ce qui lance Worksheet_Change qui masque les lignes.
Donc il faut se protéger en interdisant les events pendant l'exécution de cette macro avec :

Application.EnableEvents = False
... code de la macro
Application.EnableEvents = True

 

[chaelie2015]

Bonjour sylvanu
C'est vraiment exceptionnel, merci encore une fois pour votre aide précieuse.
A+