XL 2016 VBA - Coordonnées absolues de la partie données de la fenêtre Excel

[Dudu2]

Bonjour,
J'avais un code pour ça mais je l'ai perdu et n'arrive plus à retrouver la logique.
Quelles sont les coordonnées absolues (par rapport à l'écran) du cadre rouge ?
Sachant que le VisibleRange n'est pas correct puisqu'il inclut les cellules tronquées à droite et en bas.

 

[Dudu2]

Alors j'ai retrouvé un bout de code, mais cela suppose l'utilisation de ces constantes:

Const ExcelStatusBarHeight = 28
Const HorizontalScrollBarPlusHeight = 28    'GetSystemMetrics32 (SM_CXHSCROLL) -> 21
Const VerticalScrollBarPlusWidth = 26       'GetSystemMetrics32 (SM_CXVSCROLL) -> 21

Valables sur mon Excel 2016, peut-être pas sur toutes les versions.

 

[Dudu2]

Cas où ça match parfaitement car le VisibleRange est parfaitement alignée sur une limite de ligne et de colonne.

Cas où il y a un différence car les limites de ligne et de colonne sont hors du VisibleRange.