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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 29 Janvier 2020

• #2

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.

 

Pièces jointes

• Charlie projet.xlsm

  16.1 KB · Affichages: 23

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 29 Janvier 2020

• #3

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+

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 29 Janvier 2020

• #4

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.

Cliquez pour agrandir...

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

VB:

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

 

Pièces jointes

• Charlie projet (V2).xlsm

  16.1 KB · Affichages: 11

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 30 Janvier 2020

• #5

sylvanu à dit:

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 :

VB:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 30 Janvier 2020

• #6

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

VB:

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

 

Pièces jointes

• Charlie projet (V3).xlsm

  16.3 KB · Affichages: 20

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 30 Janvier 2020

• #7

Bonjour sylvanu
merci c'est nickel.
A+

 

Vote positif 0 Vote négatif