Excel - Ajuster Bare de défilement verticale.

En fait le code que tu propose est bon, mais il présente des inconvénients pour mon utilisation.

En créant une nouvelle feuille, on voit que la scrollbar prend presque toute la place. En remplissant une 100aine de lignes elle diminue en taille. En remplissant 1000 lignes, la scrollbar diminue encore plus. De sorte à chaque fois pour atteindre la dernière ligne, il suffit de sélectionner la scrollbar et la descendre tout en bas.
Sauf que si je supprime 900 lignes ou j'avais entré les données précédemment, la scrollbar reste au meme niveau que pour les 1000, du coup pour atteindre ma 100ème ligne en passant par la scrollbar il me faut "chercher à tomber sur cette ligne" au lieu de tout simplement descendre la scrollbar au plus bas.

En fait pour comprendre rapidement mon problème, créez une nouvelle feuille > faites "CTRL" + "Flèche du bas", et remplissez la dernière cellule avec une donnée quelconque > faites "Etrée" > supprimer cette donnée et revenez à la cellule "A1". Essayez maintenant avec la barre de défilement d'atteindre la ligne 68. (sachant que dans ce cas on peut encore passer par la souris et sa molette, mais pour la ligne 23 152...) Constat, ce n'est pas pratique.

Avec le code de "ScrollArea", j'arrive à délimiter le champ de déroulement. C'est tres utile, mais ça présente l'inconvénient de :


1) L'aspect visuel de la scrollbar ne change pas. Donc l'utilisateur aura tendance à descendre la scrollbar au plus bas niveau pour voir finalement qu'elle n'est descendu que d'un quart pour atteindre la dernière ligne remplit. Certes c'est le but, mais là vient l'inconvénient N°2.

2) Nous ne pouvons pas descendre en dessous du champ délimité (ce qui est génant en cas de modification)

Concernant le dernier code proposé : Sheets("LaFeuille").ScrollArea = Range("A1").SpecialCells(xlCellTypeLastCell).address

C'est peut etre du à mon manque de connaissances en VBA, vu que je l'ai tout simplement copié/collé en remplaçant juste le nom de la feuille, j'arrive à descendre la scrollbar mais pas à la remonter. Donc obligé de fermer le classeur.


Bref, je pense que je peux reformuler ma question initiale :

Est-il possible de changer la taille de la barre de défilement verticale (VerticalScrollBar) pour qu'elle s'adapte au nombre de lignes avec une donnée. (voir screenshot plus haut)?

Merci, lermite222, de prendre la peine de chercher une solution à mon problème.

Bonjour,

il me suffirais de compter le nombre de cellules non vides et la taille de la scrollbar changerait en fonction de cette valeur... mais ça c'est dans mes reves
C'est exactement ce que la la macro proposée par lermite...
remplace Me.ScrollArea par worksheets("nom_de_ta_feuille").ScrollArea et met la dans l'evenement open de ton classeur (dans ThisWorkbook)
et dans l'evenement 'change' des feuilles concernées
eric

salut;
merci pour prg pour limité la feuil hor. / verti. c'est réussi