déplacement & défilement

[petitscarabé]

Je réalise des macros sur des feuilles qui ont beaucoup de lignes. Parfois j'ai besoin que la feuille s'affiche dès la première ligne (en dessous de ma ligne de titre). Ma feuille est fractionnée pour laisser des lignes de titre (1 à 7).
Or ma réussite est aléatoire:
J'utilise différente méthode:
Range("A8").Select (par exemple)
Range("A7").Offset(1,0).Select
Le curseur est bien sur la cellule mais l'écran n'a pas défilé et la ligne demandée n'est pas affichée

Quelqu'un a-t-il une solution sûre?

Merci d'avance
J'espère avoir été claire. Je n'en suis pas certaine

 

[PMO2]

Re : déplacement & défilement

Bonjour,

Essayez le code suivant

Sub ScrollSelect()
Dim R As Range
Set R = ActiveSheet.Range("A8")
ActiveWindow.ScrollRow = R.Row
R.Select
Set R = Nothing
End Sub

Cordialement.

PMO
Patrick Morange