Maintenir cellule active en milieu de page

[vmatthieu]

bonjour à tous,
je descends de lignes en lignes un gros fichier et il faut (pour comparer des données) que je vois toujours les 10 lignes qui suivent).
Quelqu'un a t'il une astuce pour que je puisse toujours voir les 10 lignes suivantes(sachant que je ne rentre pas dans la cellule, je fais juste une mise en couleur)
J'ai essayé avec une macro évenementiel et un offset (+10,1) puis offset (- 9,1) , non seulement cela ne me fait pas apparaitre les lignes du dessus et en plus cela me décale de 3 colonne sur la droite (allez comprendre)

enfin bref, si il y a une bonne ame ......

merci d'avance
bonne soirée

 

[Pierrot93]

Re : Maintenir cellule active en milieu de page

Bonjour,

essaye peut être ceci, àutiliser dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 10 Then ActiveWindow.ScrollRow = Target.Row - 10
End Sub

bon après midi
@+

 

[PMO2]

Re : Maintenir cellule active en milieu de page

Bonjour,

Quelque chose comme

Sub aa()
If TypeName(Selection) = "Range" Then
  ActiveWindow.ScrollRow = Range(Selection.Address).Row
End If
End Sub

 

[vmatthieu]

Re : Maintenir cellule active en milieu de page

Merci à vous deux,
la macro évenementielle de pierrot me convient parfaitement
merci beaucoup de vos réponse rapide (et efficace)
bonne fin de journée