Masquer Afficher des lignes par un bouton compteur

[exene]

Bonjour,

Je me heurte à un problème car je n'arrive pas à affecter une macro à un bouton compteur pour afficher ou masquer des lignes. J'y suis arrivé pour les colonnes (macro de Veriti) mais malgré plusieurs recherches et essais rien n'y fait pour les lignes . En fait les lignes 2 à 3 doivent toujours être visibles , une pression sur le bouton et les lignes 2 à 5 sont visibles une nouvelle pression et les lignes 2 à 7 sont visibles et cela jusqu'à la ligne 17. Une pression inverse et les lignes 17 et 16 sont masquées (et ainsi de suite à chaque pression jusqu'à la ligne 3).
Je vous joint un fichier exemple.

Merci.

 

[skoobi]

Re : Masquer Afficher des lignes par un bouton compteur

Bonjour exene,

En fait les lignes 2 à 3 doivent toujours être visibles , une pression sur le bouton et les lignes 2 à 5 sont visibles une nouvelle pression et les lignes 2 à 7 sont visibles et cela jusqu'à la ligne 17. Une pression inverse et les lignes 17 et 16 sont masquées (et ainsi de suite à chaque pression jusqu'à la ligne 3).

En macro ce que ça donne:

Sub MasquerLignesVide()
Application.ScreenUpdating = False
ligne = Range("A1").Value
Rows("4:" & ligne).Hidden = False
If ligne < 17 Then Rows(ligne + 1 & ":17").Hidden = True
Rows("2:3").Hidden = False
Application.ScreenUpdating = True
End Sub

ton code parle de lignes vides mais pas ton message donc à éclaircir...

 

[sousou]

Re : Masquer Afficher des lignes par un bouton compteur

Bonjour exene et Skoobi
Ci joint une version....
tu dois pouvoir avec cet exemple simplifier ta gestion de colonnes

 

[exene]

Re : Masquer Afficher des lignes par un bouton compteur

Bonsoir,

Vos deux codes vont m'aider à progresser. Merci pour vos conseils .

@+