Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Dudu2

XLDnaute Barbatruc
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.

 
Solution
Alors j'ai retrouvé un bout de code, mais cela suppose l'utilisation de ces constantes:
VB:
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

XLDnaute Barbatruc
Alors j'ai retrouvé un bout de code, mais cela suppose l'utilisation de ces constantes:
VB:
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.
 

Pièces jointes

  • GetVisibleRangeRECT.xlsm
    30.7 KB · Affichages: 1
Dernière édition:

Dudu2

XLDnaute Barbatruc
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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…