Comment faire revenir l'affichage à un endroit (Scroll)
Le
Emile63
Bonjour à tous,
Au début d'une proc. je relève la pos. actuelle du curseur avec
MaCellule = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=Fa=
lse)
Par ex: C181
Et à la fin de la proc. je souhaiterais que l'affichage revienne 1 ligne =
au dessus et à la colonne 1 de l'adresse MaCellule, c-à-d. dans mon ex=
emple:
A180
Application.Goto Reference:=Range("A180"), scroll:=True
Je vous remercie d'avance pour votre aide et sollicitude.
Cordialement,
Emile
Au début d'une proc. je relève la pos. actuelle du curseur avec
MaCellule = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=Fa=
lse)
Par ex: C181
Et à la fin de la proc. je souhaiterais que l'affichage revienne 1 ligne =
au dessus et à la colonne 1 de l'adresse MaCellule, c-à-d. dans mon ex=
emple:
A180
Application.Goto Reference:=Range("A180"), scroll:=True
Je vous remercie d'avance pour votre aide et sollicitude.
Cordialement,
Emile
'Nom de l'onglet de la feuille à adapter
With Worksheets("Feuil1")
.Activate
Col = Activecell.Column
.Cells(1,col).select
End With
Merci pour ton aide.
J'ai testé ton code avec Rows, mais l'affichage ne se remets pas à la p osition sélectionnée, avec Select.
J'y arrive comme ceci:
MaCellule = ActiveCell.Address(RowAbsolute:úlse, ColumnAbsolute:ú lse)
LigneDessus = Range(MaCellule).Cells(1, 0)
Premiere = "A" & LigneDessus
Application.Goto Reference:=Range(Premiere), Scroll:=True
ceci est suffisant. Si tu veux autre chose, je n'ai pas compris la question.
Application.Goto Reference:=Range("A1"), Scroll:=True
à l'écran en haut complètement soit la cellule C1, cette ligne de code est
suffisante :
ActiveWindow.ScrollRow = ActiveCell.Row
'--------------------------------------------
Sub test()
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub
'--------------------------------------------
'-------------
Sub test()
Dim MaCelluleRow As Long
MaCelluleRow = ActiveCell.Row - 1
'------
'------
Application.Goto Cells(MaCelluleRow, 1), scroll:=True
End Sub
'------------
--
Salutations
JJ
Emile63 a exposé le 09/10/2015 :
ça fonctionne bien, maintenant. ;-))
Bonne journée.
Emile