Remonter jusqu'à la ligne figée

James007

XLDnaute Barbatruc

• 9 Mars 2009

• #2

Re : Remonter jusqu'à la ligne figée

Bonjour,

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

Code:

Set Range ...

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 9 Mars 2009

• #3

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 9 Mars 2009

• #4

Re : Remonter jusqu'à la ligne figée

Bonjour

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

i = ActiveWindow.Panes(2).ScrollRow

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 9 Mars 2009

• #5

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

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 9 Mars 2009

• #6

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 9 Mars 2009

• #7

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à

 

Vote positif 0 Vote négatif

S

sev

Guest

• 9 Mars 2009

• #8

Re : Remonter jusqu'à la ligne figée

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

 

Pièces jointes

• Classeur2.xls

  29 KB · Affichages: 57
• Classeur2.xls

  29 KB · Affichages: 58
• Classeur2.xls

  29 KB · Affichages: 63

Vote positif 0 Vote négatif

S

STephane

XLDnaute Occasionnel

• 9 Mars 2009

• #9

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

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 9 Mars 2009

• #10

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 9 Mars 2009

• #11

Re : Remonter jusqu'à la ligne figée

Re


un essai

Code:

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

End Sub

 

Dernière édition: 9 Mars 2009

Vote positif 0 Vote négatif