Afficher (scroller) la dernière ligne du fichier

Bonjour le forum,

Je fais appel à votre aide

J’ai un fichier qui comporte actuellement 11 colonnes (A à K) et 1238 lignes.

Dans ce fichier il y a un champ de recherche créé par notre ami Sébastien que je remercie au passage .

Je voudrais si cela est possible un bouton pour scroller jusqu’à la dernière ligne renseignée .

En effet actuellement quand j’utilise le champ de recherche indépendamment ou je me trouve dans le document, une fois le champ de recherche vidé, je me retrouve à la première ligne et je dois à chaque fois scroller à la main jusqu’à la fin du document .

Est-ce possible ?

Quelqu’un a une idée ?

Merci d’avance pour votre aide

Meilleures salutations

Bonjour,

à tester,

n = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Application.Goto Reference:=Range("A" & n), Scroll:=True

Bonjour Nini, sabV,

@sabV : j'ai essayé ta formule que je trouvais séduisante par rapport à celle, classique et habituelle...

n = Range("A" & Rows.Count).End(xlUp).Row

... mais le scroll débarque sur une ligne improbable largement hors des clous.

Les vieilles méthodes ont parfois encore du bon!

A+

Bonjour,

Merci cela fonctionne presque trop bien .

En effet il descend trop bas car mon tableau a un quadrillage (bordure) avec la formule ci-dessous pour colorer une ligne sur deux.

J’ai donc créé plein de lignes vierges que je rempli au fur et à mesure.

Est-ce possible qu’il regarde uniquement la colonne "B" car elle est obligatoirement remplie.

Ci-joint mon fichier de base avec ton bouton « Scroller » avec ton code.

Mise en forme conditionnelle -> « =NON(MOD(LIGNE();2)) »

Meilleures salutations

Bonjour Nini, curulis57,

@curulis57,

.SpecialCells(xlCellTypeLastCell).Row

est la dernière ligne du fichier

quand on ne sait pas sur quel colonne chercher, c'est une bonne méthode de remplacement.

à condition qu'il n'y ai pas tous plein de lignes vide sous le tableau

aussi ça montre qu'il y a du ménage à faire sur la feuille

quand on connait la colonne ou chercher,

n = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
Application.Goto Reference:=Range("A" & n), Scroll:=True

Bonjour,

Merci à vous tous pour votre aide, toujours aussi fort le forum .

Le dernier code me va bien

Meilleures salutations