Macro: positionnement dernière ligne

jecherche

XLDnaute Occasionnel

• 7 Novembre 2016

• #2

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 8 Novembre 2016

• #3

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

 

Dernière édition: 8 Novembre 2016

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 8 Novembre 2016

• #4

Bonjour,

Merci Lone-wolf ... intéressant



Gelinotte

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 8 Novembre 2016

• #5

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.

 

Pièces jointes

• test upload massif v2.xlsm

  243.2 KB · Affichages: 37

Vote positif 0 Vote négatif

M

mythotem

XLDnaute Junior

• 10 Novembre 2016

• #6

Merci à tous

 

Vote positif 0 Vote négatif