Ajuster Scrollbar jusqu'à la dernière ligne

Bonjour,

j'ai un fichier avec 65 lignes pour le moment mais qui va évoluer et ma scrollbar verticale affiche 1048576 lignes... Bien galère pour aller à la ligne 30 par exemple....

Comment ajuster mes scrollbar, de toutes mes feuilles ça serait encore mieux à la taille de la dernière ligne de la feuille concernée

J'ai tenté avec

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col As Long, A
Dim Lig As Long
    Application.EnableEvents = False 'Quand définit A, tourne en rond...
    Me.ScrollArea = "" 'si pas libérer plante quand ont définit plus grand.
    A = Range("A1").SpecialCells(xlCellTypeLastCell).Address
    Col = Range(A).Column + 2
    Lig = Range(A).Row + 2
    Me.ScrollArea = Range(Cells(1, 1), Cells(Lig, Col)).Address
    Application.EnableEvents = True
End Sub

ScrollBar1.Max = Range(TaCellule).Value

mais sans succès...

Comment feriez vous ?

Merci

Akhlan

Bonsoir,

Au lieu d'utiliser des scrollbar utilise directement ScrollRow :

ActiveWindows.ScrollRow = 30  'par exemple...

A+

non, ce n'est pas ce que je veux, je veux que les lignes vides de 66 à 1048576 n'existent pas

Bonjour,

sans doute parce que tu as des lignes vides prises en compte inutilement.

Fait Ctrl+Fin, sélectionne la dernière ligne, remonte par l’ascenseur à la 1ère ligne qui suit tes données, shift+clic dessus pour toutes les sélectionner.
Clic-droit dessus et Supprimer.
Eventuellement faire pareil sur les colonnes si besoin.
Enregistre ton fichier, l'ascenseur aura repris sa taille normale.
eric

Edit: je n'avais pas rafraichi et pas vu ton fichier. Bingo...

Merci mais ça n'a malheureusement pas fonctionné dans mon classeur final...

J'ai refait la feuille et ça fonctionne parfaitement maintenant....