Macro: positionnement dernière ligne

[mythotem]

Bonjour,
Est-il possible , après enregistrement de ma macro (en PJ), que la dernière ligne écrite, apparaisse sur mon écran , + bas qu'actuellement ?
(juste pour exemple, dans mon fichier la dernière ligne est en 808, et le bas de mon écran est en 825 !).
Merci d'avance.
Mythotem.

 

[jecherche]

Bonjour,

À mon avis, les 3 lignes mentionnant des Scroll sont inutiles. Mets les en commentaire ou supprime les.
825 - 808 = 17
Change l'avant dernière ligne pour :
Range("C" & Rows.Count).End(xlUp).Offset(-17).Select
Juste en dessous ajoute :
Selection.Offset(17).Select
Cela devrait positionner la dernière ligne au bas de l'écran... sinon, ajuste les valeurs des deux Offset()
Voir si ça convient.



Jecherche

 

[Lone-wolf]

Bonjour mythotem, jecherche

Pour le scroll tu peux faire aussi comme ceci

x = Range("a" & Rows.Count).End(xlUp).Row
ActiveWindow.ScrollRow = x - 35

C'est mieux d'éviter les Select

 

[jecherche]

Bonjour,

Merci Lone-wolf ... intéressant



Gelinotte

 

[Lone-wolf]

Bonjour Gelinotte

Merci.

Un exemple d'un classeur que j'ai fait pour un xlnaute.

Utilisation: en colonne A inscrit le numéro à la suite puis, utilise TAB. Dans la colonne C inscrit le numéro en E3 (ici 176) 177 (c'est à dire toujours augmenter de 1) puis TAB; ensuite clique sur le bouton et regarde le résultat en Feuil2.

 

[mythotem]

Merci à tous