Positionner curseur sur une cellule sélectée Windows Excel VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

26/06/2017, 15h16
unparia

Citation:

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 :D
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 ? :D
Allons, allons ...

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:

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:

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

Citation:

Envoyé par patricktoulon

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:

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

26/06/2017, 15h36
unparia

Citation:

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 ...
26/06/2017, 16h15
patricktoulon

re

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
26/06/2017, 16h21
patricktoulon

re

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!!
26/06/2017, 16h29
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 …
26/06/2017, 16h32
unparia

Citation:

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 --->>

Citation:

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" !!!! :roll:

Bref ! J'en ai plus que marre d'avoir à répondre à de telles énormités.
26/06/2017, 17h01
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 …
26/06/2017, 19h49
patricktoulon

re

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
27/06/2017, 12h02
mjpmjp

1 pièce(s) jointe(s)

bonjour à tous,
suite de mes recherches "relative" ;)
Pièce jointe 289374
@+JP
27/06/2017, 12h30
mjpmjp

1 pièce(s) jointe(s)

re,
avec une position de 100 x 100
Pièce jointe 289388
@+JP

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:

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

27/06/2017, 14h04
mjpmjp

1 pièce(s) jointe(s)

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"
Pièce jointe 289418
@+JP
27/06/2017, 15h13
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 :mouarf:
@+JP

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:

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.

28/06/2017, 19h26
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 …
28/06/2017, 21h22
patricktoulon

re

bonsoir

Citation:

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
29/06/2017, 17h05
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 …

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:

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:

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 ??

30/06/2017, 10h33
mjpmjp

bonjour,

Citation:

excel 2010 : quand dans les options du book on agrandit la taille de la police de +2 il faut également ajuster avec +2

toute la partie quadrillée est décalée

@+JP
30/06/2017, 10h55
unparia

Il n'est et ne sera jamais possible de "corriger" par un "coefficient correcteur global" un résultat de calculs où interviennent séparément et de manière distincte des paramètres distincts.
Et ce : quel que puisse être le domaine concerné (informatique ou non)
Perdre de vue ou ne pas comprendre ce fait élémentaire relève carrément de la puérilité (la même que celle qui anime certains chercheurs de "martingales" et autres fantaisies ...)
La correction d'un calcul ne peut se faire que dans le calcul lui-même et en aucun cas sur son résultat.
Voilà qui est dit avec toute mon amitié, mais également toute ma sévérité.
J'abandonne sur leurs planètes ceux qui souhaitent continuer à délirer.
30/06/2017, 12h06
Marc-L

Citation:

Envoyé par patricktoulon

de toute façon j'ai trouvé pourquoi ca décorne avec pointstoscreenpixels

Pour moi ce qui déconne est la façon dont tu l'utilises !

Déjà j'ai simplifié mon extrait du code du post #523 sans facteur de zoom d'Excel à dessein
justement pour mettre en exergue cette fonction !
Et c'est comme pour les posts #45 & 48, tu n'en tiens pas compte et tu continues sur ta lancée …

Premier test à effectuer avec un zoom Excel à 100 % :
comparer le positionnement de l'UserForm entre les fenêtres d'Excel et de la feuille de calculs
quand elles sont maximisées ou pas car si déjà il y a des différences à 100%
alors ce n'est même pas la peine de continuer avec un autre zoom !
01/07/2017, 09h12
patricktoulon

re

re
bonjour marc

je n'ai aucun problème a positionner a n'importe quel zoom de 50 a 400 , maximisée ou pas pour l'application ou l'activewindow ,avec 2007 et avec la facon dont je l utilise

et la facon dont je modifie le zoom avec les pairs et impairs n'est certainement pas un hasard comme je l'ai dis précédemment reste a comprendre pourquoi

d'où ma réflexion il y a quelques post peut être faut il raisonner autrement que mathématiquement

en tout cas avec Windows 7 et office 2007 ca match a 100%

et quand je dis que pointstoscreenpixels ne fait pas d'erreur pour s'en donner la preuve il suffit de faire un setcursorpos avec les donné obtenues avec ou sans zoom et sans calcul du zoom simplement avec pointstoscreenpixels
on se rends bien compte que le curseur est a ca place

pourquoi le cursor se pose bien sans calcul alors que l'userform il lui faut un calcul sur pointstoscreenpixelsen en plus de la conversion pixel to point

un petit détail aussi
si on fait un msgbox cellule.width sur un fichier non modifié on a 60 par defaut : a oui!!!!! et bien regarde en le sauvant en xml combien vaut la largeur par defaut vous allez avoir de surprises

1 pièce(s) jointe(s)

Bonjour à tous,
est-ce que le résultat obtenu est normal avec ce code ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub textbox()
Dim PtToPx#, Zooom@
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)
.Left = (ActiveWindow.ActivePane.PointsToScreenPixelsX(ActiveCell.Left) / PtToPx) '???????????????????????
End With
 
With Worksheets("Feuil1").TextBox1
.Top = ActiveCell.Top - ActiveCell.Height
.Left = 5 '???????????????????????
End With
End Sub

Pièce jointe 290643

oui si l'activecell est en colonne A
lance cela et donne moi la liste que tu obtiens dans le debug
les resultat seront faux mais on s'en fou il me faut cette liste

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub truc()
    Dim dpi As Double
    With ActiveWindow
 
        For i = 50 To 400 Step 10
            .Zoom = i
            Z = (.Zoom) / 100
                 ppx = (((.ActivePane.PointsToScreenPixelsY(3) - .ActivePane.PointsToScreenPixelsY(0)) / 3) / Z)
            Debug.Print "Zoom = "; .Zoom & " ---> DPI = " & ppx * 72 & " ---> coeff =" & ppx
        Next
    .Zoom = 100
    End With
End Sub

Code:

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
33
34
35
36
Zoom = 50 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 60 ---> DPI = 80 ---> coeff =1,11111111111111
Zoom = 70 ---> DPI = 102,857142857143 ---> coeff =1,42857142857143
Zoom = 80 ---> DPI = 90 ---> coeff =1,25
Zoom = 90 ---> DPI = 106,666666666667 ---> coeff =1,48148148148148
Zoom = 100 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 110 ---> DPI = 87,2727272727273 ---> coeff =1,21212121212121
Zoom = 120 ---> DPI = 100 ---> coeff =1,38888888888889
Zoom = 130 ---> DPI = 92,3076923076923 ---> coeff =1,28205128205128
Zoom = 140 ---> DPI = 102,857142857143 ---> coeff =1,42857142857143
Zoom = 150 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 160 ---> DPI = 90 ---> coeff =1,25
Zoom = 170 ---> DPI = 98,8235294117647 ---> coeff =1,37254901960784
Zoom = 180 ---> DPI = 93,3333333333333 ---> coeff =1,2962962962963
Zoom = 190 ---> DPI = 101,052631578947 ---> coeff =1,40350877192982
Zoom = 200 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 210 ---> DPI = 91,4285714285714 ---> coeff =1,26984126984127
Zoom = 220 ---> DPI = 98,1818181818182 ---> coeff =1,36363636363636
Zoom = 230 ---> DPI = 93,9130434782609 ---> coeff =1,30434782608696
Zoom = 240 ---> DPI = 100 ---> coeff =1,38888888888889
Zoom = 250 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 260 ---> DPI = 92,3076923076923 ---> coeff =1,28205128205128
Zoom = 270 ---> DPI = 97,7777777777778 ---> coeff =1,35802469135802
Zoom = 280 ---> DPI = 94,2857142857143 ---> coeff =1,30952380952381
Zoom = 290 ---> DPI = 99,3103448275862 ---> coeff =1,37931034482759
Zoom = 300 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 310 ---> DPI = 92,9032258064516 ---> coeff =1,29032258064516
Zoom = 320 ---> DPI = 97,5 ---> coeff =1,35416666666667
Zoom = 330 ---> DPI = 94,5454545454545 ---> coeff =1,31313131313131
Zoom = 340 ---> DPI = 98,8235294117647 ---> coeff =1,37254901960784
Zoom = 350 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 360 ---> DPI = 93,3333333333333 ---> coeff =1,2962962962963
Zoom = 370 ---> DPI = 97,2972972972973 ---> coeff =1,35135135135135
Zoom = 380 ---> DPI = 94,7368421052632 ---> coeff =1,31578947368421
Zoom = 390 ---> DPI = 98,4615384615385 ---> coeff =1,36752136752137
Zoom = 400 ---> DPI = 96 ---> coeff =1,33333333333333

maintenant ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub truc()
    Dim dpi As Double
    With ActiveWindow
 
        For i = 50 To 400 Step 10
            .Zoom = i
            Z = (.Zoom) / 100
                           If (Z * 10) Mod 5 <> 0 And (Z * 10) Mod 10 <> 0 Then ssupp = 0.012: Z = Z + ssupp
            ppx = Round((((.ActivePane.PointsToScreenPixelsY(3) - .ActivePane.PointsToScreenPixelsY(0)) / 3) / Z))
            Debug.Print "Zoom = "; .Zoom & " ---> DPI = " & ppx * 72 & " ---> coeff =" & ppx
        Next
    .Zoom = 100
    End With
end sub

Code:

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
33
34
35
36
Zoom = 50 ---> DPI = 72 ---> coeff =1
Zoom = 60 ---> DPI = 72 ---> coeff =1
Zoom = 70 ---> DPI = 72 ---> coeff =1
Zoom = 80 ---> DPI = 72 ---> coeff =1
Zoom = 90 ---> DPI = 72 ---> coeff =1
Zoom = 100 ---> DPI = 72 ---> coeff =1
Zoom = 110 ---> DPI = 72 ---> coeff =1
Zoom = 120 ---> DPI = 72 ---> coeff =1
Zoom = 130 ---> DPI = 72 ---> coeff =1
Zoom = 140 ---> DPI = 72 ---> coeff =1
Zoom = 150 ---> DPI = 72 ---> coeff =1
Zoom = 160 ---> DPI = 72 ---> coeff =1
Zoom = 170 ---> DPI = 72 ---> coeff =1
Zoom = 180 ---> DPI = 72 ---> coeff =1
Zoom = 190 ---> DPI = 72 ---> coeff =1
Zoom = 200 ---> DPI = 72 ---> coeff =1
Zoom = 210 ---> DPI = 72 ---> coeff =1
Zoom = 220 ---> DPI = 72 ---> coeff =1
Zoom = 230 ---> DPI = 72 ---> coeff =1
Zoom = 240 ---> DPI = 72 ---> coeff =1
Zoom = 250 ---> DPI = 72 ---> coeff =1
Zoom = 260 ---> DPI = 72 ---> coeff =1
Zoom = 270 ---> DPI = 72 ---> coeff =1
Zoom = 280 ---> DPI = 72 ---> coeff =1
Zoom = 290 ---> DPI = 72 ---> coeff =1
Zoom = 300 ---> DPI = 72 ---> coeff =1
Zoom = 310 ---> DPI = 72 ---> coeff =1
Zoom = 320 ---> DPI = 72 ---> coeff =1
Zoom = 330 ---> DPI = 72 ---> coeff =1
Zoom = 340 ---> DPI = 72 ---> coeff =1
Zoom = 350 ---> DPI = 72 ---> coeff =1
Zoom = 360 ---> DPI = 72 ---> coeff =1
Zoom = 370 ---> DPI = 72 ---> coeff =1
Zoom = 380 ---> DPI = 72 ---> coeff =1
Zoom = 390 ---> DPI = 72 ---> coeff =1
Zoom = 400 ---> DPI = 72 ---> coeff =1

01/07/2017, 16h56
patricktoulon

re

mille excuse enlève le "round"

Code:

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
33
34
35
36
Zoom = 50 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 60 ---> DPI = 78,4313725490196 ---> coeff =1,08932461873638
Zoom = 70 ---> DPI = 101,123595505618 ---> coeff =1,40449438202247
Zoom = 80 ---> DPI = 88,6699507389162 ---> coeff =1,23152709359606
Zoom = 90 ---> DPI = 105,263157894737 ---> coeff =1,46198830409357
Zoom = 100 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 110 ---> DPI = 86,3309352517986 ---> coeff =1,19904076738609
Zoom = 120 ---> DPI = 99,009900990099 ---> coeff =1,37513751375138
Zoom = 130 ---> DPI = 91,4634146341463 ---> coeff =1,27032520325203
Zoom = 140 ---> DPI = 101,983002832861 ---> coeff =1,41643059490085
Zoom = 150 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 160 ---> DPI = 89,3300248138958 ---> coeff =1,24069478908189
Zoom = 170 ---> DPI = 98,1308411214953 ---> coeff =1,36292834890966
Zoom = 180 ---> DPI = 92,7152317880795 ---> coeff =1,28771155261221
Zoom = 190 ---> DPI = 100,418410041841 ---> coeff =1,39470013947001
Zoom = 200 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 210 ---> DPI = 90,9090909090909 ---> coeff =1,26262626262626
Zoom = 220 ---> DPI = 97,6491862567812 ---> coeff =1,35623869801085
Zoom = 230 ---> DPI = 93,4256055363322 ---> coeff =1,29757785467128
Zoom = 240 ---> DPI = 99,5024875621891 ---> coeff =1,38197899391929
Zoom = 250 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 260 ---> DPI = 91,8836140888208 ---> coeff =1,27616130678918
Zoom = 270 ---> DPI = 97,3451327433628 ---> coeff =1,35201573254671
Zoom = 280 ---> DPI = 93,8833570412518 ---> coeff =1,30393551446183
Zoom = 290 ---> DPI = 98,9010989010989 ---> coeff =1,37362637362637
Zoom = 300 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 310 ---> DPI = 92,5449871465296 ---> coeff =1,2853470437018
Zoom = 320 ---> DPI = 97,1357409713574 ---> coeff =1,34910751349108
Zoom = 330 ---> DPI = 94,2028985507246 ---> coeff =1,30837359098229
Zoom = 340 ---> DPI = 98,4759671746776 ---> coeff =1,36772176631497
Zoom = 350 ---> DPI = 96 ---> coeff =1,33333333333333
Zoom = 360 ---> DPI = 93,0232558139535 ---> coeff =1,29198966408269
Zoom = 370 ---> DPI = 96,9827586206897 ---> coeff =1,34698275862069
Zoom = 380 ---> DPI = 94,4386149003148 ---> coeff =1,31164742917104
Zoom = 390 ---> DPI = 98,159509202454 ---> coeff =1,36332651670075
Zoom = 400 ---> DPI = 96 ---> coeff =1,33333333333333

je n'arrive pas a voir si c'est ptscrennpix ou zoom qui fait la modif par serie chez toi tandis que chez moi c'est un sur deux (pairs et impairs)
que donne ca dans le debug

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub truc2()
    Dim dpi As Double
    With ActiveWindow
 
        For i = 50 To 400 Step 10
            .Zoom = i
            Z = (.Zoom) / 100
 
            Actptx = (.ActivePane.PointsToScreenPixelsX(3) - .ActivePane.PointsToScreenPixelsX(0)) / 3
            Debug.Print "Zoom = "; .Zoom & " -> Actptx = " & Actptx
        Next
    .Zoom = 100
    End With
End Sub

Code:

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
33
34
35
36
Zoom = 50 -> Actptx = 0,666666666666667
Zoom = 60 -> Actptx = 0,666666666666667
Zoom = 70 -> Actptx = 1
Zoom = 80 -> Actptx = 1
Zoom = 90 -> Actptx = 1,33333333333333
Zoom = 100 -> Actptx = 1,33333333333333
Zoom = 110 -> Actptx = 1,33333333333333
Zoom = 120 -> Actptx = 1,66666666666667
Zoom = 130 -> Actptx = 1,66666666666667
Zoom = 140 -> Actptx = 2
Zoom = 150 -> Actptx = 2
Zoom = 160 -> Actptx = 2
Zoom = 170 -> Actptx = 2,33333333333333
Zoom = 180 -> Actptx = 2,33333333333333
Zoom = 190 -> Actptx = 2,66666666666667
Zoom = 200 -> Actptx = 2,66666666666667
Zoom = 210 -> Actptx = 2,66666666666667
Zoom = 220 -> Actptx = 3
Zoom = 230 -> Actptx = 3
Zoom = 240 -> Actptx = 3,33333333333333
Zoom = 250 -> Actptx = 3,33333333333333
Zoom = 260 -> Actptx = 3,33333333333333
Zoom = 270 -> Actptx = 3,66666666666667
Zoom = 280 -> Actptx = 3,66666666666667
Zoom = 290 -> Actptx = 4
Zoom = 300 -> Actptx = 4
Zoom = 310 -> Actptx = 4
Zoom = 320 -> Actptx = 4,33333333333333
Zoom = 330 -> Actptx = 4,33333333333333
Zoom = 340 -> Actptx = 4,66666666666667
Zoom = 350 -> Actptx = 4,66666666666667
Zoom = 360 -> Actptx = 4,66666666666667
Zoom = 370 -> Actptx = 5
Zoom = 380 -> Actptx = 5
Zoom = 390 -> Actptx = 5,33333333333333
Zoom = 400 -> Actptx = 5,33333333333333

01/07/2017, 18h05
patricktoulon

re

bon ben c'est bien zoom qui fait le yoyo chez toi
j'ai les même série que toi a une échelle différente puisque tu es en dpi 96 et moi 120
ma serie

edit: oupss! non tu a des serie de 3 c'est complètement insensé

Citation:

Zoom = 50 -> Actptx = 1
Zoom = 60 -> Actptx = 1
Zoom = 70 -> Actptx = 1,33333333333333
Zoom = 80 -> Actptx = 1,33333333333333
Zoom = 90 -> Actptx = 1,66666666666667
Zoom = 100 -> Actptx = 1,66666666666667
Zoom = 110 -> Actptx = 2
Zoom = 120 -> Actptx = 2
Zoom = 130 -> Actptx = 2,33333333333333
Zoom = 140 -> Actptx = 2,33333333333333
Zoom = 150 -> Actptx = 2,66666666666667
Zoom = 160 -> Actptx = 2,66666666666667
Zoom = 170 -> Actptx = 3
Zoom = 180 -> Actptx = 3
Zoom = 190 -> Actptx = 3,33333333333333
Zoom = 200 -> Actptx = 3,33333333333333
Zoom = 210 -> Actptx = 3,66666666666667
Zoom = 220 -> Actptx = 3,66666666666667
Zoom = 230 -> Actptx = 4
Zoom = 240 -> Actptx = 4
Zoom = 250 -> Actptx = 4,33333333333333
Zoom = 260 -> Actptx = 4,33333333333333
Zoom = 270 -> Actptx = 4,66666666666667
Zoom = 280 -> Actptx = 4,66666666666667
Zoom = 290 -> Actptx = 5
Zoom = 300 -> Actptx = 5
Zoom = 310 -> Actptx = 5,33333333333333
Zoom = 320 -> Actptx = 5,33333333333333
Zoom = 330 -> Actptx = 5,66666666666667
Zoom = 340 -> Actptx = 5,66666666666667
Zoom = 350 -> Actptx = 6
Zoom = 360 -> Actptx = 6
Zoom = 370 -> Actptx = 6,33333333333333
Zoom = 380 -> Actptx = 6,33333333333333
Zoom = 390 -> Actptx = 6,66666666666667
Zoom = 400 -> Actptx = 6,66666666666667

bon ben la voila l'erreur je me suis mis en dpi 96 et j'obtiens bien les serie de 3 les meme que les tiennes
en dpi 96

Code:

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
33
34
35
36
Zoom = 50 -> Actptx = 0,666666666666667
Zoom = 60 -> Actptx = 0,666666666666667
Zoom = 70 -> Actptx = 1
Zoom = 80 -> Actptx = 1
Zoom = 90 -> Actptx = 1,33333333333333
Zoom = 100 -> Actptx = 1,33333333333333
Zoom = 110 -> Actptx = 1,33333333333333
Zoom = 120 -> Actptx = 1,66666666666667
Zoom = 130 -> Actptx = 1,66666666666667
Zoom = 140 -> Actptx = 2
Zoom = 150 -> Actptx = 2
Zoom = 160 -> Actptx = 2
Zoom = 170 -> Actptx = 2,33333333333333
Zoom = 180 -> Actptx = 2,33333333333333
Zoom = 190 -> Actptx = 2,66666666666667
Zoom = 200 -> Actptx = 2,66666666666667
Zoom = 210 -> Actptx = 2,66666666666667
Zoom = 220 -> Actptx = 3
Zoom = 230 -> Actptx = 3
Zoom = 240 -> Actptx = 3,33333333333333
Zoom = 250 -> Actptx = 3,33333333333333
Zoom = 260 -> Actptx = 3,33333333333333
Zoom = 270 -> Actptx = 3,66666666666667
Zoom = 280 -> Actptx = 3,66666666666667
Zoom = 290 -> Actptx = 4
Zoom = 300 -> Actptx = 4
Zoom = 310 -> Actptx = 4
Zoom = 320 -> Actptx = 4,33333333333333
Zoom = 330 -> Actptx = 4,33333333333333
Zoom = 340 -> Actptx = 4,66666666666667
Zoom = 350 -> Actptx = 4,66666666666667
Zoom = 360 -> Actptx = 4,66666666666667
Zoom = 370 -> Actptx = 5
Zoom = 380 -> Actptx = 5
Zoom = 390 -> Actptx = 5,33333333333333
Zoom = 400 -> Actptx = 5,33333333333333

comme je le soupçonnais ca va bien plus loin qu'une erreur dans la fonction
en dpi 120 ceci me donne le point 0 left de la grille au quel j'ajoute les 4.4 et toi les -5

Code:

MsgBox .ActivePane.PointsToScreenPixelsX(0)

en dpi 96(100%) ca me donne une donnée complètement erronées (-158) avec tout maximisé
je comprends mieux pourquoi avec les apis ca fonctionne mieux
visiblement les fonction pointstoscreenpixels ne gèrent pas les profondeurs d'écran

tiens Nicolas fait toi plaisir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ultimatemethode()
 With CreateObject("WScript.Shell"): ppx = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") / 72: End With
 With ActiveWindow
 Z = .Zoom / 100
 X = .ActivePane.PointsToScreenPixelsX([D3].Left) / ppx
 Y = .ActivePane.PointsToScreenPixelsY([D3].Top) / ppx
 End With
  With UserForm1
 .Show 0
 .Left = X -5
 .Top = Y -5
 End With
 End Sub

;)

01/07/2017, 19h28
Nicolas JACQUIN

Bien vu mais pourquoi le -5 au top ??, obligé de le retirer pour moi
01/07/2017, 19h32
Nicolas JACQUIN

et sur le portable obliger de retirer -5 au top et left
01/07/2017, 19h43
patricktoulon

re

a oui c'est vrai c'est que le left le "-5" pardon

voila une méthode qui nous donne le coeff sans api
tu a essayé divers zoom ?
01/07/2017, 19h46
patricktoulon

re

c'est quoi la différence entre tes deux pcs

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 17h59.