comment se positionner sur une cellule

"denis le breton" a écrit:

En fait mon besoin est de faire en sorte que la cellule sélectionnée soit
en

haut à gauche dans l'affichage
range("C1").select ' ça je sais faire
mais si C1 est déja visible dans ma feuille la cellule active est bien C1
mais la première cellule visible est A1
comment faire pour que ma première cellule visible soit C1
Merci chers contributeurs.
PS Aujourd'hui le soleil est de retour (:-))))))))))))))))) (sortez
couverts)

Bonjour, Denis

Il suffirait de commencer par un select qui va au fin fond du classeur:
Range("IV65536").Select
Après quoi, ton select sur C1 fera le reste!

Bonne continuation

PS: sur les Alpes, le soleil est revenu aussi (depuis hier)

Bjr,

Nous suivons la météo sur les Alpes de près...

http://euro.wx.propilots.net/

8-)

à+twinley

"denis le breton" a écrit:

En fait mon besoin est de faire en sorte que la cellule sélectionnée soit

en

haut à gauche dans l'affichage
range("C1").select ' ça je sais faire
mais si C1 est déja visible dans ma feuille la cellule active est bien C1
mais la première cellule visible est A1
comment faire pour que ma première cellule visible soit C1
Merci chers contributeurs.
PS Aujourd'hui le soleil est de retour (:-))))))))))))))))) (sortez

couverts)


Bonjour, Denis

Il suffirait de commencer par un select qui va au fin fond du classeur:
Range("IV65536").Select
Après quoi, ton select sur C1 fera le reste!

Bonne continuation

PS: sur les Alpes, le soleil est revenu aussi (depuis hier)

Bonjour,
Je ne retrouve plus l'instruction exacte ( et suis même pas sûr qu'elle
existe , pourtant il me semble
en avoir utilisé une dans des temps anciens ....
sinon, avec ceci à adapter

Sub x()
col = ActiveCell.Column
lig = ActiveCell.Row
ActiveWindow.ScrollColumn = col
ActiveWindow.ScrollRow = lig
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"denis le breton" <denislebreton@discussions.microsoft.com> a écrit dans le
message de news: F5AA8FDE-C209-413E-AFDF-CFC082B684CF@microsoft.com...

En fait mon besoin est de faire en sorte que la cellule sélectionnée soit
en
haut à gauche dans l'affichage
range("C1").select ' ça je sais faire
mais si C1 est déja visible dans ma feuille la cellule active est bien C1
mais la première cellule visible est A1
comment faire pour que ma première cellule visible soit C1
Merci chers contributeurs.
PS Aujourd'hui le soleil est de retour (:-))))))))))))))))) (sortez
couverts)

Bonsour® Denis,
un petit éventail des possibilités :

Sub Macro1()
' ---avec selection explicite
MsgBox "Positionner C1 avec Selection",
vbQuestion, "Cellule active " & ActiveCell.Address

Range("C1").Select
ActiveWindow.ScrollRow = Selection.Row
ActiveWindow.ScrollColumn = Selection.Column

'---sur la cellule active
MsgBox "Positionnement aléatoire avec selection",
vbQuestion, "Cellule active " & ActiveCell.Address

[C1].Offset(100 + 30 * Rnd(), 100 + 5 * Rnd()).Select
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column

'---sur une cellule précise
MsgBox "Positionnner B6 sans changer la cellule active",
vbQuestion, "Cellule active " & ActiveCell.Address

ActiveWindow.ScrollRow = [B6].Row
ActiveWindow.ScrollColumn = [B6].Column
MsgBox "Atteindre la Cellule Active : " &
ActiveCell.Address, vbInformation

Application.Goto Reference:=ActiveCell
MsgBox "Retour en A1", vbExclamation
[A1].Select

End Sub

Kenavo !!!
ne pas oublier de visiter le site de Penglaou ;o)))
http://excelabo.net
@+

-----Message d'origine-----
En fait mon besoin est de faire en sorte que la cellule
sélectionnée soit en

haut à gauche dans l'affichage
range("C1").select ' ça je sais faire
mais si C1 est déja visible dans ma feuille la cellule
active est bien C1

mais la première cellule visible est A1
comment faire pour que ma première cellule visible soit
C1

Merci chers contributeurs.
PS Aujourd'hui le soleil est de retour (:-
))))))))))))))))) (sortez couverts)

.

comment faire pour que ma première cellule visible soit C1

Avec le 2° argument de la méthode Goto (scroll) à true, ça le fait....

Application.Goto Reference:="Feuil1!R1C3", scroll:=True

AV