XL 2019 Gerer la position écran ou afficher une cellule

[escouger]

Bonjour,
Après une commande "Atteindre" j'aimerais pouvoir déterminer l'adresse sur l'écran ou sera affichée cette cellule.
Le plus souvent je voudrais que la cellule soit affichée en haut et à gauche de l'écran.
Je n'ai rien vu dans les forums.
Merci pour vos avis

 

[Dudu2]

Bonjour,

Sub a()
    Call AfficheEnHautAGauche([G107])
End Sub

Sub AfficheEnHautAGauche(Cellule As Range)
    ActiveWindow.ScrollColumn = Cellule.Column
    ActiveWindow.ScrollRow = Cellule.Row
End Sub

 

[job75]

Bonjour escouger, Dudu2,

Pour cadrer la cellule active :

Sub Cadrage()
Application.GoTo ActiveCell, True
End Sub

A+