XL 2010 Retour sur une cellule quand déclic

FCMLE44

XLDnaute Impliqué
Supporter XLD
Bonjour

Dans le fichier ci dessous, avec la case a cocher en cellule B26, je démasque mes lignes 160 à 218.
J'ai crée en cellule H162 un bouton permettant de remonter en cellule B16, mais cela ne masque pas mes lignes 160 à 218 précédemment démasquée

VB:
Sub Démasque()
'
' Démasque Macro
'

'
    ActiveWindow.SmallScroll Down:=-132
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 147
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 145
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 1
    Range("B16").Select
End Sub

Que me manque t il ?

Merci
 

Pièces jointes

  • Classeur3.xlsx
    61.4 KB · Affichages: 8

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour FCMLE,
Votre code ci dessus ne fait rien, excepter de faire défiler des lignes.

Ci joint un essai avec juste deux petites macros :
Code:
Sub Demasque()
    Rows("160:218").EntireRow.Hidden = False
    [A160].Select
End Sub
Sub Masque()
    Rows("160:218").EntireRow.Hidden = True
    [A1].Select
End Sub
J'ai remplacé en B26 le bouton par un rectangle transparent. il suffit de cliquer sur B26 pour démasquer les lignes.
 

Pièces jointes

  • Classeur3.xlsm
    71.4 KB · Affichages: 5

FCMLE44

XLDnaute Impliqué
Supporter XLD
Merci mais...
Oui ne doit pas etre par défaut dans la cellule B26 car si rien on ne démasque pas
Si je clique sur oui ca doit démasquer et ensuite une fois fait ce que j'ai a faire sur cette annexe pour revenir en B16 et masquer les cellules 160 à 218 je clique sur le bouton en H162