Remonter jusqu'à la ligne figée

[sev]

Bonjour ,
avant l'initialisation d'un userform , je voudrais remonter la dernière ligne d'un tableau contenant des données jusqu'à la ligne figée (ligne N°12).
Quel code pour cela ?

 

[James007]

Re : Remonter jusqu'à la ligne figée

Bonjour,

... Figée signifie t-il Filtrée ... ?
Il te faut passer par

Set Range ...

 

[Caillou]

Re : Remonter jusqu'à la ligne figée

Bonjour,

Essayes avec ce code :
Dim derlig As Range
Set derlig = Range("A1048576").End(xlUp)
derlig.Select
ActiveWindow.ScrollRow = derlig.Row

Caillou

 

[PascalXLD]

Re : Remonter jusqu'à la ligne figée

Bonjour

pour obtenir le N° de ligne c'est ainsi je crois

i = ActiveWindow.Panes(2).ScrollRow

 

[PascalXLD]

Re : Remonter jusqu'à la ligne figée

RE

Arf on n'est pas tous parti dans le même sens

Perso je croyais que tu avais figé des volets mais bon ce n'est peut-être pas cela

 

[Caillou]

Re : Remonter jusqu'à la ligne figée

Bonjour à tous,

Moi j'avais compris "Placer la dernière ligne de la liste ou du tableau en haut de l'écran, juste après les titres figés", ... d'ou mon code + haut

 

[PascalXLD]

Re : Remonter jusqu'à la ligne figée

RE

Bah il précise dans sa question que sa ligne figée est là 12

Bon attendons voir ce qu'il entend par là

 

[sev]

Re : Remonter jusqu'à la ligne figée

Pour exemple voici un fichier joint.
Je n'ai pas de filtre sur mes colonnes

 

[STephane]

Re : Remonter jusqu'à la ligne figée

Application.Goto [A45], True

comme la dernière ligne est inconnue, on peut faire cela :
LastRow = Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row
Application.Goto Cells(LastRow, 1), True

 

[Caillou]

Re : Remonter jusqu'à la ligne figée

Re,

le code que j'ai envoyé tout a l'heure fonctionne sur une liste (sans cellule vide dans la colonne A) tu peux l'adapter à ton tableau
Voila une adaptation :
Dim derlig As Range
Set derlig = Range("A" & ActiveCell.SpecialCells(xlLastCell).Row)
derlig.Select
ActiveWindow.ScrollRow = derlig.Row

Caillou

 

[PascalXLD]

Re : Remonter jusqu'à la ligne figée

Re


un essai

Private Sub CommandButton1_Click()
maderniere = Range("A13").SpecialCells(xlCellTypeLastCell).Row
ActiveWindow.ScrollRow = maderniere
UserForm1.Show

End Sub