Discussion :

[hehee]

Bonjour,
J'ai un fichier qui a plusieurs feuille (30 feuilles).
J,aimerais que dès l'ouverture du fichier et au changement de feuilles, que la case A5 soit affichée (pour avoir le haut de page).

J'ai testé ceci dans ThisWorkBook:

Code vb :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
Range("A4").Show
End Sub
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("A4").Show
Range("A4").Activate
End Sub

Malgré ceci, rien ne se passe. Comment faire :S ?

Merci,

Hehee

Rectification, à l'ouverture du fichier, cela fonctionne.

Mais pour le changement de feuille, cela ne fonctionne pas :S

j'ai trouvé :

Code :

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

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

[mercatog]

Utilise plutôt l'évènement Workbook_SheetActivate

Pour afficher la ligne 4 en haut de la fenêtre et sans sélectionner de cellule

Code :

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

1
2
3
4
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
Sh.Application.ActiveWindow.ScrollRow = 4 'la ligne 4 est affichée en haut
End Sub