VBA - ActiveWindow

[Pofito]

Bonjour,

Je cherche à savoir comment changer la vue excel par VBA. Sur un exemple tout simple, quand on effectue une sélection étendue dans excel (avec ctrl + maj + fleche), excel va positionner sa vue de telle sorte que la derniere cellule selectionnée soit tout en bas de l'écran. Est-il possible de reproduire cela en VBA et si oui comment ?

Avec simplement la ligne de code ci-dessous, la selection se fait mais l'écran ne bouge pas...
Range(Selection, Selection.End(xlDown)).Select

J'ai essayé la commande ActiveWindow.Scrollrow = la derniere ligne de la selection
mais cela ramène l'écran excel de telle sorte que la derniere ligne de la sélection soit affichée en première ligne de l'écran et non en dernière...

Merci de votre aide !

 

[tototiti2008]

Re : VBA - ActiveWindow

Bonjour Profito,

pour déplacer l'écran, tu peux essayer :

Application.goto reference:=range("E10000"), scroll:=true

 

[Pofito]

Re : VBA - ActiveWindow

Merci de ta réponse mais j'avais déjà essayé quelque chose de ce genre mais moi en fait il faut que ca s'applique à une plage
Ici ta ligne de code va mettre la cellule E10000 en haut à gauche de l'écran
Moi je voudrai que la dernière cellule de ma sélection soit en bas de l'écran sans avoir un scrolling horizontal...

 

[Pierrot93]

Re : VBA - ActiveWindow

Bonjour pofito, toto

essaye peut être ainsi :

With ActiveWindow
    .ScrollRow = Range("A65536").End(xlUp).Row - .VisibleRange.Rows.Count
End With

bon après midi
@+

 

[Pofito]

Re : VBA - ActiveWindow

ca marche ! Il suffit juste de rajouter "+2" à ton calcul pour retomber pile en bas et c'est impeccable !

Merci beaucoup !

 

[Pierrot93]

Re : VBA - ActiveWindow

Re,

oui, tout dépend des barres d'outils affichées...

 

[Pofito]

Re : VBA - ActiveWindow

En effet, je n'y avais pas pensé...
Encore merci! 🙂