Masquer Afficher des lignes par un bouton compteur

exene · 4 Août 2010

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 · 4 Août 2010

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:

Code:

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 · 4 Août 2010

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 · 4 Août 2010

Re : Masquer Afficher des lignes par un bouton compteur

Bonsoir,

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

@+

Masquer Afficher des lignes par un bouton compteur

exene

XLDnaute Accro

Pièces jointes

skoobi

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

Pièces jointes

exene

XLDnaute Accro

Discussions similaires