haut de page

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:

---

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:

---

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

---

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:

---

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

---