Discussion :

[unparia]

pour 2007 la je peux le dire "c'est bon je lai "

Elle est bien bonne, celle-là, patricktoulon : ELLE n'est pas buggée, ELLE (te l'ai dit plus haut, tellement plus haut ...)
Quant aux autres versions : tu t'apercevras vite, si tu fais des tests logiques isolés et rigoureux de même nature (ne veut pas dire identiques) que celui que je t'ai montré, que n'existe pas non plus de "cadence" définie
Bref ! amuse-toi bien, mais ne reviens s'il te plait pas avec un nouvel "ce coup-ci j'ai bon" qui serait mis à mal en deux coups de cuillère à pot, hein ...
Notre cercle, lui, continue en ce qui le concerne sur le chemin pris : celui de la démonstration sans appel d'un bug en vue de sa dénonciation.
Dis-toi alors bien une chose, patricktoulon : si Microsoft, alors acculé, devait soit corriger, soit cesser d'avancer comme valable la méthode incriminée, toute "rustine" fabricotée pour "rattraper" (inparfaitement, de surcroît) deviendrait alors totalement caduque. Tu comprends cela ?
Allons, allons ...

[patricktoulon]

la preuve que c'est bien la conversion pointstoscreenpixels par le zoom qui pose problème
voila mes deux versions office 2007
on constate que dans la première je prends les coordonnées de la cellule avec pointtoscreenpixels et le zoom modifié ou pas est appliqué a la valeur retournée

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
Sub version_2007()
    Dim X As Double, Y As Double, Z As Double, versio, ppx As Double
    With ActiveWindow
        Z = (.Zoom) / 100
        If Val(Right(Z, 1)) Mod 2 <> 0 And Z <> 1 And Z <> 3 Then ssupp = 0.1: Z = Z + ssupp
        ppx = (.ActivePane.PointsToScreenPixelsY(3) - .ActivePane.PointsToScreenPixelsY(0)) / 3
        X = .ActivePane.PointsToScreenPixelsX([d3].Left)
        Y = .ActivePane.PointsToScreenPixelsY([d3].Top)
    End With
    With UserForm1
        .Show 0
        .Left = (X / ppx) * Z + 4.4
        .Top = (Y / ppx) * Z + 4.4
    End With
End Sub

maintenant dans cette version je prends seulement les points 0 de la grille avec poitstoscreenpixels le zoom modifié ou pas y est appliqué
pour le positionnement j'utilise en plus des points 0 la cellule .left et top * le coefficient zoom mais sans la modification---> (-ssupp)

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
Sub version_2007bis()
    With ActiveWindow
        Z = .Zoom / 100    'coefficient zoom
        zend = Val(Right(Z, 1))
        ssupp = 0
        If zend Mod 2 <> 0 And Z <> 1 And Z <> 3 Then ssupp = 0.1: Z = Z + ssupp    'ajustement du coefficient zoom
        ppx = (.ActivePane.PointsToScreenPixelsX(3) - .ActivePane.PointsToScreenPixelsX(0)) / 3    'coefficient point to pixel
        ' les points 0 left et top de la grille
        x = (.ActivePane.PointsToScreenPixelsX(0) / ppx) * Z + 4.4
        y = (.ActivePane.PointsToScreenPixelsY(0) / ppx) * Z + 4.4
    End With
    With UserForm1
        .Show 0
        .Left = x + [D4].Left * (Z - ssupp)'j'enlève la modification apporté au coefficient zoom
        .Top = y + [D4].Top * (Z - ssupp)'pareil
    End With
End Sub

[Marc-L]

marc oui zoom a 100 avec un autre zoom c'est la bérézina

Extrait d'un code ici simplifié & testé ce jour sur Excel 2003 & 2010 32 bits (le portable avec 2007 n'étant pas rentré)
sur des versions de Windows différentes (Seven & 8.1) avec des profondeurs d'écran différentes (96 & 120 dpi)
uniquement pour un zoom à 100% et calant la fenêtre de l'UserForm sur la cellule D3,

code à placer dans le module de l'UserForm :

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
20
21
22
23
24
Private Declare Function GetDC& Lib "user32" (ByVal hWnd&)
Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hdc&, ByVal nIndex&)
 
Function GetPPI!(L&)
         GetPPI = 72 / GetDeviceCaps(GetDC(0), L)
End Function
 
Static Function GetX!(V)
                If X! = 0 Then X = GetPPI(88)
                GetX = 4 + ActiveWindow.PointsToScreenPixelsX(V / X) * X
End Function
 
Static Function GetY!(V)
                If Y! = 0 Then Y = GetPPI(90)
                GetY = 4 + ActiveWindow.PointsToScreenPixelsY(V / Y) * Y
End Function
 
Private Sub UserForm_Activate()
    If ActiveWindow.Zoom = 100 Then
        Me.StartUpPosition = 0
        Me.Left = GetX([D3].Left)
        Me.Top = GetY([D3].Top)
    End If
End Sub

[unparia]

la preuve que c'est bien la conversion pointstoscreenpixels par le zoom

Tu as vraiment la très mauvaise habitude de définir comme "preuve" d'une raison (la tienne, au hasard) ce qui n'est que le constat d'un effet, patricktoulon.
Et tu as tort, mais je ne vais pas "balancer" ici, un par un, les tests très techniques d'un cercle de gens rigoureux et sérieux.
(je t'ai quand-même parlé plus haut d'une analogie avec les balances de précision, non ? Tu n'y a manifestement rien compris).
Mais je perds ici de plus en plus mon temps ...
Continue sans moi ...

[patricktoulon]

oui marc getdevicecap et get(dc) sont les versions les plus utilisée
mais lorsqu'un zoom est appliqué selon les versions il est difficile de trouver le coefficient zoom pour la simple et bonne raison qu'il n'est pas croissant régulièrement a partir du moment ou l'on utilise pointstoscreenpixels qui fonctionne avec une logique un peu bizarre certains appelle ca un bug moi je pense que c'est une autre logique que celle qui reviendrait a faire les chose mathématiquement

exemple
zoom 100 = 1
zoom 130 =1.4 chez moi avec pointtoscreenpixel et non 1.3

sur les version 2013 et plus c'est encore plus tordu visiblement c'est un coup sur 3 ou 4 sans parler des "-5" à "+4.4" pour les cadre
je testerais ta fonction tout a l'heure je dois partir
mais le chalenge est quand même de ne pas se servir des api gdi ou Windows

[patricktoulon]

unparia ce qui nous sépare ,c'est que tu tiens absolument a raisonner mathématiquement tel qu'on l'apprit a l'école
je pense moi au contraire que ce n'est pas un bug mais bien une logique que nous avons pas encore compris vu les résultats
donc quand je dis la preuve c'est par rapport a cette considération
l'informatique n'est pas mathématique mais logique!!

[Marc-L]

Comme précisé plusieurs fois mon extrait est uniquement pour un zoom à 100%,
rien qu'en regardant le code de l'évènement Activate de l'UserForm !

Et dans ce cas quel que soit la configuration des ordinateurs que j'ai pu tester
je n'ai jamais eu de souci avec les fonctions PointsToScreenPixels !
Pour peu de respecter la définition d'Excel concernant l'unité Point
comme indiqué dans l'aide VBA interne et dans le post #41 …

Quant au facteur de zoom, voir les posts d'unparia, notamment les #45 & 48 …

Sinon la logique est forcément mathématique ! Même quand elle n'est qu'arithmétique …

[unparia]

je pense moi au contraire que ce n'est pas un bug mais bien une logique que nous avons pas encore compris vu les résultats

Te rends-tu au moins compte de l'incongruité de ce que tu dis là ???????

Il n'y a rien à "comprendre" et tout à attendre tel que l'expose l'aide interne VBA --->>

Window.PointsToScreenPixelsX, méthode
Cette méthode convertit une mesure horizontale de points (coordonnées du document) en pixels d'écran (coordonnées de l'écran). Elle renvoie la mesure convertie sous la forme d'une valeur de type Long.
Syntaxe

expression.PointsToScreenPixelsX(Points)

Point barre ! Et si ne le fait pas --->> BUG et non "logique non comprise" !!!!

Bref ! J'en ai plus que marre d'avoir à répondre à de telles énormités.

[Marc-L]

Précisions pour Patrick en particulier :

le zoom que j'évoque est celui d'Excel, pas celui de l'Affichage de Windows !
Ce dernier ne me posant pas de souci car c'est la profondeur d'écran (dpi ou ppp) gérée dans mon extrait de code :
forcément car comme la base de calculs est en 72ppp et n'ayant jamais vu d'ordi dans cette configuration depuis ce siècle
et même peu ou prou le siècle dernier !

Ce code fonctionnant aussi bien pour la fenêtre de la feuille de calculs maximisée comme réduite,
idem pour la fenêtre principale d'Excel …

[patricktoulon]

re
moi aussi marc je pare bien du zoom Excel celui de Windows pas besoins getdevicecap te le donne en fonction de la taille choisi 96 ou 120
j'ai donc testé ton model effectivement c'est la version la plus connu seulement en zoom 100 dans excel
j'ai essayé d'ajouter /trouver la formule pour l'adaptation au zoom Excel mais c'est un casse tète chinois c'est pour ca que je ne l'utilise plus car la plus part du temps je suis en zoom 110 ou 120

[mjpmjp]

bonjour à tous,
suite de mes recherches "relative"

@+JP

[mjpmjp]

re,
avec une position de 100 x 100

@+JP

[Nicolas JACQUIN]

Bonjour à tous,
Maintenant tous le monde sait qu'on n'a pas de solution miracle, je viens de reprendre ma solution de base modifiée avec la façon correctif à Patrick
et pour moi ça marche à n'importe quel zoom.
Si vous pourriez juste essayer et me dire ce que ça donne, et après j'en reste là.
Bonne suite à tous

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
Sub test()
Dim PtToPx#, Zooom@
 
Version = Round(Val(Split(Application.OperatingSystem, " ")(3)))
Corec_L = IIf(Version > 6.01 Or Version = 0, -5, 4.4)
Corec_T = IIf(Version > 6.01 Or Version = 0, 0, 4.4)
 
Zooom = ActiveWindow.Zoom / 100
PtToPx = ((ActiveWindow.ActivePane.PointsToScreenPixelsX(ActiveSheet.[a1].Width) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / ActiveSheet.[a1].Width) / Zooom
 
With UserForm1
.Show 0
.Top = (ActiveWindow.ActivePane.PointsToScreenPixelsY(ActiveCell.Top) / PtToPx) + Corec_T
.Left = (ActiveWindow.ActivePane.PointsToScreenPixelsX(ActiveCell.Left) / PtToPx) + Corec_L
End With
 
End Sub

[mjpmjp]

bonjour à tous,
la formule : c11 + c9 - c6 - 50 (ruban) ce révèle aléatoire (ruban 50 ?)

je vous transmets ces chiffres qui peut être vous serviront
le zoom écran n'a pas d'influence, celui d'excel modifie les "PointsToScreen"

@+JP

[mjpmjp]

bonjour,
ces chiffres sont valable pour excel 2010 pas pour 2016 !!!
je suis parvenu à déterminer le haut de A1,
cependant, quand dans les options du book on agrandit la taille de la police de +2 il faut également ajuster avec +2

voila ...vive excel
@+JP

[Nicolas JACQUIN]

Bonjour les copains,

Cette fois j'ai bien compris qu'on peux rien faire,
rien que pour mettre l'userform en mode pleine écran avec ou sans api, avec ma config j'ai comme un mur au niveau du left (+5 de décalage de chaque cotés et en bas)
Dernier code fait pour ajuster en pleine écran

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Activate()
'mode pleine écran
'Fenêtre excel en mode plaine écran
   With UserForm1
     .StartUpPosition = 3
     .Width = Application.Width
     .Height = Application.Height - 5
     .Left = -5
     .Top = 0
   End With
End Sub

Donc il y à peut-être un problème mathématique dans l'application mais aussi un soucis de point zéro.

Voilà, à bientôt.

[Marc-L]

Je ne vois pas comment il pourrait y avoir un souci de point zéro même si le zoom n'est pas à 100%
vu le plateau déjà livré dans les posts #45 & 48 par exemple …

[patricktoulon]

bonsoir

Je ne vois pas comment il pourrait y avoir un souci de point zéro même si le zoom n'est pas à 100%

c'est FAUX Marc

le zoom agit sur la partie ou les numéros de ligne sont affichés juste avant le left 0 grille soit avant le columns(1).left
sur 2007 il agit aussi sur les displaybar heading

[Marc-L]

Alors tu n'as pas lu le post #45 ni son code !

Comment cela se fait-il de notre côté - unparia & moi - nous n'avons pas de souci de point zéro ?!
Et ce sur des configurations d'ordinateurs bien différentes …

[patricktoulon]

re
bonjour a tous
de toute façon j'ai trouvé pourquoi ca décorne avec pointstoscreenpixels sur certains degrés de zoom
il n'y a qu'a faire ce test pour comprendre
teste avant a zoom 100 pour confirmer et teste a 130 140 150 160 170 190

Code :

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

1
2
3
4
5
6
7
Sub test()
With ActiveWindow
Z = .Zoom / 100
MsgBox (.ActivePane.PointsToScreenPixelsX([c3].Width) * Z)
MsgBox (.ActivePane.PointsToScreenPixelsX([c3].Width) - .ActivePane.PointsToScreenPixelsX(0)) * Z
End With
End Sub

le 2 eme message donne bon alors maintenant dis moi quel rapport a le point 0( ci dessus en gras) avec width de la cellule
regarde bien le résultat avec les zooms qui sont divisible que lui même et ceux qui sont paires
traduit ca en point avec tes api si tu veux et place ton userform avec

et fait ce même test avec les apis gdi et Windows

edit:
un autre test avec 2007
teste avec la ligne 6 et une seconde fois sans

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
With ActiveWindow
For i = 50 To 400 Step 10
        .Zoom = i
        Z = (.Zoom) / 100
        If Val(Right(Z, 1)) Mod 2 <> 0 And Z <> 1 And Z <> 3 Then ssupp = 0.1: Z = Z + ssupp
        dpi = (((.ActivePane.PointsToScreenPixelsY(3) - .ActivePane.PointsToScreenPixelsY(0)) / 3) / Z) * 72
Debug.Print .Zoom & "---" & dpi
  .Zoom = 100
 Next
End With
End Sub

alors dit moi c'est le zoom ou pointstoscreenpixels qui décorne hein ??