Itinéraire !!!

JNP à dit:

Bonjour Boulou 🙂,
Plutôt que de naviguer avec des valeurs relative de déplacement, tu ferais mieux d'utiliser des valeurs absolues

Code:

ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollRow = 20

qui te positionne la feuille avec la cellule choisie en haut à gauche.
Bon courage 😎

Cliquez pour agrandir...

boulou à dit:

Non.
Je suis obligé de faire référence à ma cellule vide de telle sorte que j'obtienne un décalage constant à chaque fois qu'une donnée supplémentaire est introduite dans ma colonne.

Cliquez pour agrandir...

Cells(65536, 1).End(xlUp).Row

ActiveWindow.SmallScroll up:=20

ActiveWindow.ScrollRow = WorksheetFunction.Max(Cells(65536, 1).End(xlUp).Row - 20, 1)

Bebere à dit:

bonjour Boulou


Sub x()
'met le curseur en e1
Range("E1").Activate
'met le curseur 1ère ligne vide
Range("E1").End(xlDown).Offset(1, 0).Activate
'met le curseur 20 lignes plus haut si plus de 20 cellules,sinon reste 1ère ligne vide
If Range("E5").End(xlDown).Row > 20 Then _
ActiveCell.Offset(-20, 0).Activate
End Sub

à bientôt

Cliquez pour agrandir...