Discussion :

[arkorrigan]

Bonjour à tous,

Alors mon petit problème du jour est de réussir à "figer" l'affichage des feuilles excel.
J'ai fait une petit application ou toute la navigation se fait par des boutons de macro : but du jeu : que l'utilisateur n'aille pas fouiner partout sur la feuille..

Est ce que vous connaissez la manip (si elle existe!) pour figer l'affichage ?

merci d'avance !

[ouskel'n'or]

Tu masques déjà les ascenseurs. Ensuite, comme l'utilisateur est obligé d'utiliser les flèches de direction pour se déplacer dans la feuille, tu mets, dans Worksheet_SelectionChange de ta feuille de calculs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim NoLig As Long, NoCol As Integer
    NoLig = 10 'N° de ligne que tu souhaites voir en haut de page
    NoCol = 5 ' N° de colonne que tu souhaites voir à gauche de la page
    ActiveWindow.ScrollRow = NoLig
    ActiveWindow.ScrollColumn = NoCol
End Sub

[arkorrigan]

euh... tu fais comment pour masquer les ascenceurs ?????

[ouskel'n'or]

Tu enregistres la macro en faisant
Ce qui donne ça parce que je suis de bonne humeur aujourd'hui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With

Et n'oublie pas de les rétablir en sortie -> True True à la place de false false

[Didier Gonard]

Bonjour,

sous 2003 au moins...
Sans rien cacher du tout testes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub toto()
ActiveSheet.ScrollArea = "A1:F30"
End Sub

et regardes dans l'aide à ScrollArea

cordialement,

Didier

[ouskel'n'or]

Bonjour,

sous 2003 au moins...
Sans rien cacher du tout testes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub toto()
ActiveSheet.ScrollArea = "A1:F30"
End Sub

et regardes dans l'aide à ScrollArea

cordialement,

Didier

Ah ! c'est ça que je recherchais l'aut' jour et que je n'ai pas retrouvé ! Merci Ormonth !

[arkorrigan]

les gars, vous êtes vraiment trop bons !
Respect !
Merci beaucoup.