Discussion :

[unparia]

Bonjour

Une discussion longue et relativement récente me conduit à établir comment, sans faire appel à des fonctions de l'API de Windows ni à des scripts tiers, déterminer les dimensions de plusieurs des "éléments" de la fenêtre application.
La capture d'écran ci-jointe montre (dimensions "fléchées" en vert et en rouge) les dimensions qui intéressent.
Celles en vert sont facilement déterminables (utilisation simple des propriétés top et left de la fenêtre application et de la fenêtre active) et donc à ne pas traiter dans la présente discussion.
Celles en rouge sont par contre une autre affaire et sont celles qui, seules, sont ici concernées. --->>


Je ne vous cacherai pas que je sais déjà extraire certaines des dimensions en cause, mais ne dis pas lesquelles en vue de voir si d'autres ont une meilleure idée que celle que j'ai mise en oeuvre pour leur détermination.
Les dimensions les moins simples à obtenir sont les dimensions B,C et D
Je serais heureux de lire vos idées, suggestions et codes éventuels.

[unparia]

Au "courageux" qui a mis un pouce rouge sans le justifier : tu as ces solutions, je pense... ?
Si non : tu as mis ce pouce rouge pour quelle raison valable ?

[joe.levrai]

J'ai équilibré en

je passe la main pour ma part, ces sujets ne sont pas mes spécialités et je n'ai pas le temps de m'y mettre, cependant je suivrai la discussion (comme la précédente qui était trèèèèèèèèèès longue)

En revanche, C = A+B sur ta copie écran non ? Pourquoi vouloir déterminer les 3 de façon indépendantes ? Deux (nimporte lesquels) suffisent

[Jean-Philippe André]

Salut,

l'enregistreur de macro me donne l'info via

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.FormulaBarHeight

mais je me doute que tu as déjà cette info.
il ne te manquerait qu'une valeur vu que
C = A+B

[unparia]

Merci, Jean-Philippe André
J'avais bien sûr exploité cette propriété.
Elle n'est malheureusement pas adaptée. Elle ne retourne pas une hauteur, mais un nombre de "lignes" de formule. Et on ne sait pas quelle hauteur est attribuée à chaque ligne.
Je m'en suis sorti, mais par un subterfuge. Je me demande si un autre moyen existe.

[Pierre Fauconnier]

Salut.

FormulaBarHeight donne la hauteur en nombre de lignes. Je ne suis pas certain que cela fera avancer le smillblick...

Au delà ce cela, plus de 1000 messages dans l'autre discussion et probablement beaucoup dans celle-ci pour un intérêt nul (sauf éventuellement "académique", et encore) pour une utilisation normale et professionnelle d'Excel, et sauf à utiliser Excel pour ce qu'il n'est pas.

A noter que l'auteur de la trop longue discussion n'a toujours pas précisé à quoi la réponse à sa question initiale allait lui servir, et que je ne comprends toujours pas à quoi les dimensions qu'Unparia se propose de (nous faire) calculer peuvent servir...

[unparia]

Bonjour Pierre Fauconnier

A plusieurs choses.
Par exemple à figer la position de la fenêtre active et à présenter un texte évolutif circonstancié entre le bas de la zone D (ou C) et le haut de la zone E, sans empiéter ni sur la grille, ni sur la fenêtre application, tout en gardant le haut de celle-ci au haut de l'écran.

[Pierre Fauconnier]

Je ne doute pas qu'on va me trouver plein de mauvaises raisons de vouloir connaître ces valeurs. Je doute toutefois de l'intérêt de ces exemples dans l'utilisation d'un tableur pour ce pourquoi il est fait. C'est d'ailleurs probablement la raison pour laquelle le modèle objet d'Excel ne les met pas à disposition, tout du moins de façon évidente, voire probablement pas du tout pour la majeure partie d'entre elles

[Pierre Fauconnier]

Tiens, tant qu'on y est. N'oubliez pas de prévoir vos calculs lorsque le ruban est réduit et/ou lorsque la barre d'outils d'accès rapide est sous le ruban...

Même dans l'inutilité, il convient d'être exhaustif...

[unparia]

Merci.
C'est déjà le cas pour les dimensions déjà extraites.
Le facteur de zoom est également pris en compte. Est également prise en compte l'occultation éventuelle des barres de titres (colonnes et lignes) de la fenêtre active;
Je viens de trouver une solution à l'extraction des deux dimensions qui posaient encore problème, mais attend encore 48 heures pour m'assurer de ce que personne d'autre ne connaît une solution plus simple. Passé ce délai, je montrerai la totalité de mon code.

[patricktoulon]

bonjour jacques
pour la "G" je fait comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CommandBars(1).Height * ppx

pareil pour le height du header
ajouter le zoom bien entendu dans le calcul pour un zoom diffèrent de 100

[unparia]

Bonjour Patrick
Tu veux dire le "width" (qui correspond au G).
Seul le zoom compte.
Merci, mais j'ai alors mieux, plus direct et sans le ppx, pour le G et pour le F.

[patricktoulon]

intéressant j'aimerais bien savoir alors

[unparia]

En fait : je sais extraire maintenant :
1) de manière simple : toutes les dimensions sauf la C et la D
2) je sais également extraire les dimensions C et D, mais de manière plus complexe. Ce sont maintenant ces deux-là uniquement, pour lesquelles j'aimerais trouver une solution moins alambiquée

[patricktoulon]

une petite demo pour le g avec le curseur
1 petite remarque
tu vois que dans le code je stocke les lefts ,et bien quand je les additionne je ne trouve pas le résultat que je trouve avec le ptrscrpix(0)-left(3)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test()
    Dim lefts(4)
    With CreateObject("WScript.Shell"): ppx = .RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI") / 72: End With
   ' lefts(1) = Application.Left
    'lefts(2) = ActiveWindow.Left
    lefts(3) = CommandBars(1).Height * ppx
 
    l = ActiveWindow.ActivePane.PointsToScreenPixelsX(0)    'point 0 left de la grille excel avec les header
    h = ActiveWindow.ActivePane.PointsToScreenPixelsY(ActiveWindow.VisibleRange.Cells(1).Top)    'point 0 top de la grille excel avec les header
    plus = lefts(3)
   Application.Cursor = xlNormal
       For i = 1 To 50
          Sleep 200
        If plus = lefts(3) Then plus = 0 Else plus = lefts(3)
        SetCursorPos l - plus, h
    Next
End Sub

je regarde pour les autre

[unparia]

Laisse tomber ce G et ce F !
Je t'ai dit que j'ai mieux et bien plus direct.... et vérifié.

[Pierre Fauconnier]

Patrick,

Par curiosité, tu peux montrer sur une copie d'écran à quoi correspond CommandBars(1).Height ? Je suppose que tu parles d'une barre de commande, mais je ne vois pas laquelle sur des XL >= 2007...

[patricktoulon]

bonjour pierre fauconnier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox commandbars(1).name

---------------------------
Microsoft Excel
---------------------------
Worksheet Menu Bar
---------------------------
OK
---------------------------

@jacques
pour la "D" c'est caption(variabe avec les thèmes) + commandbars("Ribbon").height+commandbars(1).height

[Pierre Fauconnier]

Je demandais une copie d'écran (en d'autres termes, où voit-on cette barre à l'écran?)

EDIT: Oublie, j'ai vu...

[patricktoulon]

tu ne la vois plus sur 2007 ,que sur 2003 en tout cas comme tel mais elle existe toujours

si ca peut t'aider voila ses controls

&Fichier
&Edition
&Affichage
&Insertion
Forma&t
&Outils
&Données
Action (&z)
Fe&nêtre
&?

cela dit tu peux prendre n'importe la quelle elles font toutes le meme height

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test4()
For i = 1 To 20
MsgBox CommandBars(i).Height
Next
End Sub