Discussion :

[patricktoulon]

@ Nicolas
j'ai encore découvert ce matin quelque chose d'intéressant

re teste celle que je t'ai donné par mail et que tu m'a dis que c'est bon sauf en zoom

teste en zoom 100 ,140,150,190,220,250,300

tu va avoir une lumière qui va s'allumer dans ta tète et tu va comprendre pourquoi j'ai mis en gras 150 et 250

ne donne pas le code pour le moment il faut que je comprenne pourquoi? sinon je vais avoir encore des commentaires a la con

[unparia]

sinon je vais avoir encore des commentaires a la con

Les commentaires "à la con" ont toujours la particularité d'être en adéquation avec la qualité des assertions faites et les conclusions de type "instinctif".
De toute ma vie (et dieu sait si elle est avancée), je n'ai "vu" de telles "approches" de l'informatique.
Il y a des cas où j'ai vraiment envie de HURLER ....

[patricktoulon]

en tout cas mon approche fonctionne

sur W7 ---------------------> 2007 ,2010
sur W8 et W8.1 ----------->2007,2010,2013
W10 ------------------------>2010,2013,2016
w10 et 2007 je sais pas encore il faut que je demande a un collaborateurs

et pour être précis c'est pas pointstoscreenpixels qui décorne mais bien le zoom tout du moins quand on ne sait pas quoi faire
j'ai trouvé une astuce qui fonctionne je n'arrive pas a l'expliquer si tant est qu'il y est une explication autre qu'une erreur dans une dll ou un ajustement prévu qui n'est spécifié dans aucune source tuto ou autre
attendons le retour de Nicolas

les erreur se produisent en zoom 130 150 170 190
le coefficient se calcul comme suit
z=activewindow.zoom/100
ce qui donne
1.3,1.5,1.7,1.9 etc......
le right 1 de ces coeff c'est 3,5,7,9 etc.....
je pense que tu dois entrevoir ou je veux aller tout du moins pointer du "DOIGT" puisque allé j'y suis déjà allé et ca match a 100%
par contre c'est vrai que je n'ai pas l'explication qui n'a aucune logique si ce n'est comme je l'ai dis plus haut que peut être un ajustement par tranche est prévu dans le system pour la propriété zoom

[patricktoulon]

re

le 2 eme mail c'est avec le code de ce matin qui est ok à 100 , c'est bizarre que ça colle sur certain zoom

ah!!! a la bonne heure !!!!

alors je n'ai pas d'explication si ce n'est comme je l'ai dis dans mon précédant message un ajustement prévu en interne

alors the SOLUTION n'en déplaise a certains

j'ai mis en rouge la petite astuce

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
Sub test_sans_api()
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 Then Z = Z + 0.1
        ppx = (.ActivePane.PointsToScreenPixelsY(3) - .ActivePane.PointsToScreenPixelsY(0)) / 3
          X = .ActivePane.PointsToScreenPixelsX([d3].Left)
        Y = .ActivePane.PointsToScreenPixelsY([d3].Top)
    End With
Version = Round(Val(Split(Application.OperatingSystem, " ")(3)))
suppleft = IIf(Version > 6.01 Or Version = 0, "-5", 4.4)
supptop = IIf(Version > 6.01 Or Version = 0, 0, 4.4)
With UserForm1
.Show 0
.Left = (X / ppx) * Z + suppleft
.Top = (Y / ppx) * Z + supptop
End With
End Sub

voila
et c'est ki ki ki le meilleur

[Nicolas JACQUIN]

Patrick,
Excuse-moi, mais je crois qu'il y a quelqu'un qui va pas s'empêcher là, je le salut au passage
mais ton code colle à 100 % ok, mais après c'est plus ça du tout; même ce qui collait pour moi ne colle plus

edit: Fait ton test avec ta correction avant de la balancer sans essais préalable

[patricktoulon]

edit: Fait ton test avec ta correction avant de la balancer sans essais préalable

j'ai testé chez moi ca match pour tout les zoom a 100% de 50% a 400%
supprime la ligne rouge
et teste tout les zoom et dis moi les quels ne sont pas bon

[Nicolas JACQUIN]

j'ai testé chez moi ca match pour tout les zoom a 100% de 50% a 400%
supprime la ligne rouge
et teste tout les zoom et dis moi les quels ne sont pas bon

En supprimant la ligne rouge de zoom 50 à 400, de 10 en 10,
il y à: 50 100 150 200 250 300 350 400 qui sont bien, après c'est variable de plusieurs pixels(top et left) à plusieurs cellules de décalage

[patricktoulon]

si je comprends bien c'est carrément l'inverse de moi
t'en ai vraiment sur!!! que 120 ou 160 te donne pas bon sans la ligne rouge ?

[Nicolas JACQUIN]

si je comprends bien c'est carrément l'inverse de moi
t'en ai vraiment sur!!! que 120 ou 160 te donne pas bon sans la ligne rouge ?

oui sure, code comme ça

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
Sub test_sans_api()
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 Then Z = Z + 0.1
        ppx = (.ActivePane.PointsToScreenPixelsY(3) - .ActivePane.PointsToScreenPixelsY(0)) / 3
          X = .ActivePane.PointsToScreenPixelsX([d3].Left)
        Y = .ActivePane.PointsToScreenPixelsY([d3].Top)
    End With
Version = Round(Val(Split(Application.OperatingSystem, " ")(3)))
suppleft = IIf(Version > 6.01 Or Version = 0, "-5", 4.4)
supptop = IIf(Version > 6.01 Or Version = 0, 0, 4.4)
With UserForm1
.Show 0
.Left = (X / ppx) * Z + suppleft
.Top = (Y / ppx) * Z + supptop
End With
UserForm1.Label1.Caption = "zoom" & " " & ActiveWindow.Zoom
End Sub

[patricktoulon]

regarde le résultat chez moi

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
25
26
27
28
29
30
31
32
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub testallzoom()
For i = 50 To 400 Step 10
ActiveWindow.Zoom = i
  ActiveWindow.ScrollRow = 1
   ActiveWindow.ScrollColumn = 1
  test_sans_api
Sleep 500
Unload UserForm1
Next
ActiveWindow.Zoom = 100
test_sans_api
End Sub
 
Sub test_sans_api()
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 Then Z = Z + 0.1
        ppx = (.ActivePane.PointsToScreenPixelsY(3) - .ActivePane.PointsToScreenPixelsY(0)) / 3
          X = .ActivePane.PointsToScreenPixelsX([d3].Left)
        Y = .ActivePane.PointsToScreenPixelsY([d3].Top)
    End With
Version = Round(Val(Split(Application.OperatingSystem, " ")(3)))
suppleft = IIf(Version > 6.01 Or Version = 0, -5, 4.4)
supptop = IIf(Version > 6.01 Or Version = 0, 0, 4.4)
With UserForm1
.Show 0
.Left = (X / ppx) * Z + suppleft
.Top = (Y / ppx) * Z + supptop
End With
End Sub

[Nicolas JACQUIN]

si je test ton testallzoom, ça réagi pas du tout pareil,

[patricktoulon]

teste en remplacant "+0.1" par "-0.1"

[Nicolas JACQUIN]

teste en remplacant "+0.1" par "-0.1"

Pas du tout, maintenant il reste qui est bien, 100, 110, 200, 210, 310, 400

[patricktoulon]

après réflexion c'est normal que ce soit négatif pour W10 déjà -5 pour toi +5 pour moi

mais comme ca j'arrive pas a me faire une idée
il faudrait que tu ajuste a chaque zoom et me donner les ajustements pour que je puisse me faire une idée de la logique

woh woh woh!!!!! nonon !!!
je te cite tout a l'heure

En supprimant la ligne rouge de zoom 50 à 400, de 10 en 10,
il y à: 50 100 150 200 250 300 350 400 qui sont bien, après c'est variable de plusieurs pixels(top et left) à plusieurs cellules de décalage

alors maintenant avec-1 tu a toujours
100,200 400
?????????????????

[Nicolas JACQUIN]

ok, je vais voir ça, y a du boulot

[patricktoulon]

non pas vraiment je l'ai fait déjà moi pour arriver a cette conclusion

[Nicolas JACQUIN]

non pas vraiment je l'ai fait déjà moi pour arriver a cette conclusion

humm, moi pas être toi

[Nicolas JACQUIN]

donc à 100 c'est bon et à 110 j'ai ça, rien que là j'ai déjà du mal

[patricktoulon]

pour l'ajustement remplace seulement le"-1" par ce qui faut ne change rien au code

[Nicolas JACQUIN]

pour l'ajustement remplace seulement le"-1" par ce qui faut ne change rien au code

oui j'avais compris ça, mais il y à rien qui colle, rrrrrrr