XL 2016 VBA - Calcul des hauteur et largeur des Headings (pour les forts en thème)

Dudu2 · 20 Octobre 2024

Bonjour,

J'ai fait un code qui permet de calculer (du moins je le pense) la hauteur du Heading horizontal et la largeur du Heading vertical.
Ce calcul fonctionne apparemment bien en toutes occasions...SAUF SI le Zoom n'est pas à 100% ET QUE le ScrollRow ou le ScrollColumn ne sont pas à 1.

Je me suis cassé les dents sur ce calcul pour trouver la cause du non fonctionnement sous cette condition que j'ai contourné par un Scroll en 1/1 (A1) sous ScreenUpdating = False.
Mais évidemment ce n'est pas très satisfaisant.

Pour tester le calcul qui foire sans le Scroll salvateur, modifier la constante pré-processeur à #Const USE_SCROLL = False

Attention ! Le facteur Zoom n'a pas à être introduit dans le calcul actuel car aussi bien PointsToScreenPixelsX/Y que VisibleRange.Left/Top tiennent déjà compte du Zoom.
Sous un zoom donné il y a une progression du décalage proportionnelle à la Width des colonnes et la Height des lignes prédédant la 1ère cellule du VisibleRange.
Je n'ai pas trouvé les éléments de calcul qui permettraient de les déterminer. C'est du lourd !

patricktoulon · 21 Octobre 2024

VB:

Sub test()
    With ActiveWindow.Panes(1)
        p1 = .PointsToScreenPixelsX(.Parent.VisibleRange.Cells(1).Left) * 0.75
    p1 = p1 - (Application.Left * Abs(Application.Left > 0))
    End With
MsgBox "les heading mesurent " & p1 & " Points"
End Sub

Dudu2 · 22 Octobre 2024

Bonjour @patricktoulon,

Si on est à -X à gauche .WindowState ne peut pas être xlMaximized.
C'est seulement le .WindowState = xlMaximized qui nous pose problème avec ses .Left et .Top qui ne sont pas à zéro (-4.4 chez moi).

De toutes façons j'ai testé et ça fonctionne.
A moins que tu trouves un cas où ça ne fonctionne pas que je n'aurais pas vu.

patricktoulon · 22 Octobre 2024

bon j'ai regardé en effet les resultats sont faux mais pas tout a fait en fait
je ne devrait pas dire le heading fait
je devrait dir le heading se trouve à xxx du points(0)
car le userform est toujours afficher correctement au points(0) de la grille)

patricktoulon · 22 Octobre 2024

Dudu2 à dit:
Bonjour @patricktoulon,
Si on est à -X à gauche .WindowState ne peut pas être xlMaximized.

FAUX !!!
en maximisation je suis à -6 de left et -5 de top

Dudu2 · 22 Octobre 2024

le -X à gauche dont je parle, c'est un vrai -X, pas un -X dû à l'état de la fenêtre maximisée.
C'est pour ça que dans ton code je teste le WindowState pour différencier un "vrai" -X d'un -X de maximisation.

patricktoulon · 22 Octobre 2024

re
je ne vois pas de quoi tu parles (vrai/faux X )
je le redis quand excel est maximisé le left et/ou top ne sont pas à zero
ça c'est un fait

pour information voila les captures du heading maximisé et non maximisé
peut être te faudra il mettre un coup de loup pour voir ce qui se passe
maximisé et capturable

non maximisé capturé

en grossissant le truc pour la non maximisé
on voit bien la partie supplémentaire a droite du trait noir

Dudu2 · 22 Octobre 2024

Bon, laisse tomber. Cette polémique devient fatigante alors que je sais que tu as parfaitement compris.

Dudu2 · 22 Octobre 2024

Et si vraiment tu n'as pas compris, ce qui m'étonnerait, relis attentivement ton code que j'ai adapté qui fonctionne parfaitement et tu comprendras.

patricktoulon · 22 Octobre 2024

re
il y a en effet un effet illogique dans le mode windowstate xlmaximized

VB:

Sub testxx()
    Dim P1#, P2
    With ActiveWindow.Panes(1)

        P1 = (.PointsToScreenPixelsX(.Parent.VisibleRange.Cells(1).Left) * 0.75)
        With Application
            If Application.Left < 0 Then

                ' j annule la reduction du left negatif de app  si le mode windowstate est xlmaximized
                If .WindowState = xlMaximized Then ML = 0 Else ML = Application.Left

                P2 = P1 - ML
            Else
                P2 = P2 - Application.Left
            End If
        End With
    End With

    MsgBox "l 'application est à " & Application.Left & " de left " & vbCrLf & _
            "donc le calcul devrait être " & vbTab & P1 & " moins " & Application.Left & vbCrLf & _
            "le calcul réellement effectué est :" & vbTab & P1 & " moins " & ML & vbCrLf & _
            "le HeadingWeight = " & P2 & " Point"

End Sub

Dudu2 · 22 Octobre 2024

En tous cas, merci d'avoir solutionné la question initiale grâce à ton Panes(1).
C'est un truc auquel je n'aurais jamais pensé.

XL 2016 VBA - Calcul des hauteur et largeur des Headings (pour les forts en thème)

Dudu2

XLDnaute Barbatruc

Pièces jointes

patricktoulon

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Discussions similaires