Afficher/masquer des lignes par bouton selon la valeur d'une cellule

[chaelie2015]

Bonjour Forum
Je souhaite afficher ou masquer des lignes par un clique sur bouton selon la valeur d'une cellule.
Salutation

 

[sylvanu]

Bonjour Chaelie,
Un essai en PJ.
J'ai rajouté aussi tant qu'à faire une macro pour tout démasquer. Pour le test, c'est utile.

 

[chaelie2015]

Bonjour,
Merci pour la réponse; voici mon souci par exemple
si j'ai dans la cellule 10 ; je masque les lignes de 11 a 50 par clic sur bouton et ainsi de suite
a+

 

[sylvanu]

Bonjour,
Ca n'a rien à voir avec :

Je souhaite afficher ou masquer des lignes par un clique sur bouton selon la valeur d'une cellule.

Je suis bon à refaire la macro.
Je masque de la ligne N+1 à 100.
( le 100 peut être modifié à la ligne :

Rows(Index + 1 & ":100").EntireRow.Hidden = True

 

[chaelie2015]

Bonjour,
Ca n'a rien à voir avec :

Je suis bon à refaire la macro.
Je masque de la ligne N+1 à 100.
( le 100 peut être modifié à la ligne :

Rows(Index + 1 & ":100").EntireRow.Hidden = True

Bonjour sylvanu
merci pour la réponse c'est parfait, est ce que il ya une possibilité de mettre les deux code dans un meme bouton?
je m'explique par un exemple:
si dans A1 j'ai saisi 12 après je clic sur le bouton masqué il reste que les 12 lignes affichées.
ensuite je souhaite changé la valeur de A1 par 15 ( pour afficher les 15 lignes sans sans passer par le 2eme bouton "démasquer") ?
a+

 

[sylvanu]

Bonjour,
Il suffit d'intégrer Démasquer avant de masquer.

Sub Masque()
    Demasque
    Index = Application.Match([Nombre], [Liste], 0)
    Rows(Index + 1 & ":100").EntireRow.Hidden = True
End Sub

 

[chaelie2015]

Bonjour sylvanu
merci c'est nickel.
A+