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

Version imprimable

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

Sur le fixe

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
 End With
 End Sub

Et sur le portable

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 
 .Top = Y  
End With
 End Sub

01/07/2017, 20h00
Nicolas JACQUIN

Citation:

Envoyé par patricktoulon

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

Après la seul différence hors matériel,
c'est excel 2013 64bits sur portable Windows 10 64 bits,
et excel 2016 32 bits sur fixe Windows 10 64 bits
01/07/2017, 20h01
patricktoulon

re

oui ca j'avais compris c'est pas ca que je t'ai demander

laisse moi deviner

sur le pixe W10 office 32 bits
sur le portable W10 office 64 bits
ou l'inverse
01/07/2017, 20h04
Nicolas JACQUIN

Citation:

Envoyé par patricktoulon

oui ca j'avais compris c'est pas ca que je t'ai demander

laisse moi deviner

sur le pixe W10 office 32 bits
sur le portable W10 office 64 bits
ou l'inverse

post du dessus
01/07/2017, 20h13
patricktoulon

re

ok on a tout bon je m'occupe de ca tout a l'heure maintenant apéro, barbecue sous les pins juste un peu de bonheur quoi ;)
01/07/2017, 20h13
Nicolas JACQUIN

Citation:

Envoyé par patricktoulon

ok on a tout bon je m'occupe de ca tout a l'heure maintenant apéro, barbecue sous les pins juste un peu de bonheur quoi ;)

idem @+

Bonjour nicolas

cette versions devrait fonctionner sur tes deux PCs sans rien toucher si je ne me suis pas trompé dans le switch

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub version_ALLWin_Off()
    Dim ppx#, version As String, X#, Y#, SuppLeft#, Suppop#
    With CreateObject("WScript.Shell"): ppx = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") / 72: End With
    version = CStr(Val(Split(Application.OperatingSystem, " ")(3)) & "-" & Val(Application.version))
    'MsgBox version
    SuppLeft = Switch(version = "6,01-12", 4, version = "0-15", 0, version = "10-16", -5, version = "10-15", -5, version = "10-14", 0)
    supptop = Switch(version = "6,01-12", 4, version = "0-15", 0, version = "10-16", 0, version = "10-15", 0, version = "10-14", 0)
    With ActiveWindow
        X = .ActivePane.PointsToScreenPixelsX([D3].Left) / ppx
        Y = .ActivePane.PointsToScreenPixelsY([D3].Top) / ppx
    End With
    With UserForm1
        .Show 0
        .Left = X + SuppLeft
        .Top = Y + supptop
    End With
End Sub

02/07/2017, 09h47
Nicolas JACQUIN

Bonjour Patrick,
oui c'est ok pour moi, petite ou grande fenêtre et n'importe quel zoom, sur les 2 pc
(version = "10-16") pour windows10 64 bits et excel 2016 32 bits,
(version = "0-15") pour windows10 64 bits et excel 2013 64 bits.
;)
02/07/2017, 10h29
patricktoulon

re

a la bonne heure!!;)

purée la partie a été dur hein !!!
reste les commentaires du professeur avec Xp et 2007 et pour office 2010 W10 il me semble que c'est 0 c'est pour ca que je ne l'ai pas mis dans le switch

on pourrait modifier le premier switch avec < que 6.03 pour inclure W8 j'ai pas jugé utile car ca m'étonnerait qu'il survive longtemps a l'image de vista et W 7

donc affaire conclue

et c'est le toulonnais qui gagne hihhihihhihihihi
02/07/2017, 10h33
Nicolas JACQUIN

oui pas facile l'histoire
reste le switch Width et Height, hihihi
Non je déconne
Bien vu

Au risque que ce soit ma dernière intervention sur ce sujet …
Citation:
Envoyé par Nicolas JACQUIN
Code:

1 2 3 4 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
La densité d'affichage de Windows exprimée en dpi est fixe - et pour cause ! - et
indépendante du facteur de zoom d'Excel, simple à vérifier via l'API comme je l'ai déjà posté …

Et pour rappel la base de calcul en points d'Excel - indiquée dans l'aide VBA - est fixée à 72 dpi.

A moins que DPI dans vos tests exprime autre chose que la densité d'affichage de l'écran …

02/07/2017, 13h25
unparia

Bonjour Marc-L
1) Bien évidemment ! :plusser:
2) Et s'il n'y avait que cela à dire sur la "solution universelle" proposée !:lol:
L'inventaire de tous les aleas et énormités de ce qui est ici présenté comme "solution" est à ce point énorme, que je choisis de laisser continuer à rêver sur des "tapis volants" ... ;)
Amitiés, Marc
02/07/2017, 16h00
patricktoulon

re

Bonjour Marc
oui tu as raison ta réponse est hors sujet dans le sens ou la solution recherche du dpi par pointstoscreenpixels a été abandonné
puisque je la prends directement dans la base de registre

valable pour W7 a 10 pour W XP j'attends une âme charitable pour contrôler dans sa base de registre si la clé existe

de meme pour unparia
03/07/2017, 11h03
patricktoulon

re
fe
@Marc

Code:

indépendante du facteur de zoom d'Excel, simple à vérifier via l'API comme je l'ai déjà posté …

le chalenge est justement de ne pas se servir des apis et d'essayer de trouver par l'application

par la base de registre ca fonctionne de W7 a W10
et par la constante "72" j'obtiens le coefficient point to pixels
Code:

1 2 3 With CreateObject("WScript.Shell") ppx = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") / 72 End With
j'aurais préféré ne pas avoir a me servir d'un object
03/07/2017, 11h14
unparia

Le message de Marc-L est pourtant très clair :

Citation:

La densité d'affichage de Windows exprimée en dpi est fixe - et pour cause ! - et
indépendante du facteur de zoom d'Excel

et la réponse qui y est faite est carrément à côté de la plaque.
Exactement comme l'est (à côté de la plaque) la contribution :
https://www.developpez.net/forums/d1...pi-window-gdi/
où est également confondue la définition de l'écran (fixe) avec le dpi octroyé à une fenêtre.
C'est juste désespérant de voir tous ces amalgames :pleure:
03/07/2017, 11h29
patricktoulon

j'ai très bien compris

je ne veux pas travailler avec le ZOOM d'EXCEL !!!!!!mais celui du DPI octroyé c'est vous qu'avez pas compris ma démarche

encore une fois je travaille en dpi 120 (125%:sinon les textes sont trop petits)tout le temps donc mon coefficient pour l'affichage n'est pas 1.33333333333 mais 1.6666666667

c'est pas compliqué non de dieu !!

donc une mesure avec pointstoscreenpixels doit être divisé par ce coefficient pour convertir en point

alors oui avec getdevicecap on l'obtient mais j'arrête pas de répéter qu'il est hors de question dans ce chalenge d'utiliser l'es api

qu'est ce que vous comprenez pas dans ce que je dis c'est pas Français!!!!!???
03/07/2017, 11h39
unparia

Citation:

je ne veux pas travailler avec le ZOOM d'EXCEL !!!!!!mais celui du DPI octroyé c'est vous qu'avez pas compris ma démarche

encore une fois je travaille en dpi 120 (125%:sinon les textes sont trop petits)tout le temps donc mon coefficient pour l'affichage n'est pas 1.33333333333 mais 1.6666666667

c'est pas compliqué non de dieu !!

donc une mesure avec pointstoscreenpixels doit être divisé par ce coefficient pour convertir en point

alors oui avec getdevicecap on l'obtient mais j'arrête pas de répéter qu'il est hors de question dans ce chalenge d'utiliser l'es api

qu'est ce que vous comprenez pas dans ce que je dis c'est pas Français!!!!!???

Ce n'est pas que "ce n'est pas Français", mais c'est que c'est totalement insensé (et gravement révélateur de beaucoup de choses).
"nom de dieu" ou pas "nom de dieu", la transposition par rapport à l'écran de coordonnées en pixels en coordonnées en points (-toujours par rapport à l'écran) n'a plus rien à voir, ni de près ni de loin avec Excel et tout (et UNIQUEMENT) à voir avec le DPI de l'ECRAN.
Point barre.
(Je perds VRAIMENT mon temps à essayer de couper au couteau l'affreux brouillard qui t'entoure, patricktoulon).
Allez -->> j'ai d'autres choses à faire que de "partager" de telles puérilités.
03/07/2017, 11h41
patricktoulon

re

OK bon vent

Citation:

Allez -->> j'ai d'autres choses à faire que de "partager" de telles puérilités.

combien de fois a tu exprimé ton dégout sur ce débat
et pourtant tu es toujours la
ca!!! aussi c'est très révélateur

et puis M.... qu'est ce qui te gène dans le fait que je ne veuille pas aller chercher (mon 96 ou 120 puis /72) avec ou sans les api car jusqu'à preuve du contraire vous faite avec la même opération que moi
bref on le sait tu es pas d'accord on est puéril bete et idiots seul toi a la connaissance du nombre d'or on le sait tous maintenant
03/07/2017, 12h28
unparia

Bien le bonjour chez toi, patricktoulon
Et bonne chance dans toutes tes démarches et approches ...
Tu "tiens le bon bout", c'est certain. Continue ainsi. :plusser:
Content ?
N'en parlons plus ... :roll:

EDIT : ah j'oubliais --->> pour "affiner" tes raisonnements successifs (nombreux et différents depuis le début de cette discussion) : --->> pense à y "incorporer" l'âge du capitaine du navire voisin du tien ainsi que le tour de taille de son fiston de quinze ans. En te "débrouillant" (en rafistolant ceci et cela) pour obtenir ce qui pourrait être acceptable, tu pourras affirmer haut et fort que "cette fois-ci" (la combien, de "fois-ci") tout est parfait !
TOUT EST AINSI ET SERA AINSI POUR LE MIEUX DANS LE MEILLEUR DES MONDES;
Félicitations, donc, hein ... :applo:

1 pièce(s) jointe(s)

re

Citation:

EDIT : ah j'oubliais --->> pour "affiner" tes raisonnements successifs (nombreux et différents depuis le début de cette discussion) : --->> pense à y "incorporer" l'âge du capitaine du navire voisin du tien ainsi que le tour de taille de son fiston de quinze ans. En te "débrouillant" (en rafistolant ceci et cela) pour obtenir ce qui pourrait être acceptable, tu pourras affirmer haut et fort que "cette fois-ci" (la combien, de "fois-ci") tout est parfait !

si tu pouvais en faire de même j'aurais plus d'air :mouarf:
pour info
Code:

1 2 3 4 5 6 7 8 Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Sub test() dpi_Api = GetDeviceCaps(GetDC(0), 88) With CreateObject("WScript.Shell"): DPI_Regedit = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI"): End With MsgBox "DPI octroyé avec api GDI =" & dpi_Api & " ppx= " & dpi_Api / 72 & vbCrLf & " DPI octroyé dans regedit = " & DPI_Regedit & " ppx= " & DPI_Regedit / 72 End Sub End Sub
Pièce jointe 290996ho!! ben ca alors c'est pas 96!!!?
ho! ben ca alors c'est pas 1.333333333333333 !!!???
c'est l'heure de la pèche
j'apprécierais bien une truite saumonée

03/07/2017, 15h19
Invité

Bonjour à tous,

J'ai essayé code Patrick mais j'ai eu une erreur au premier switch. En effet, la variable version contient "6,01-14". Je suis sur un windows 7 pro 64 bit avec Excel 2010 32 bits.

Bonjour,
remplace avec c'est 2 lignes et dis ce que ça donne
merci

Code:

1
2
SuppLeft = Switch(version = "0-15", 0, version = "0-16", 0, version = "6,01-12", 4, version = "6,01-14", 0, version = "6,02-14", 0, version = "6,02-15", 0, version = "10-14", 0, version = "10-15", -5, version = "10-16", -5)    
    supptop = Switch(version = "0-15", 0, version = "0-16", 0, version = "6,01-12", 4, version = "6,01-14", 0, version = "6,02-14", 0, version = "6,02-15", 0, version = "10-14", 0, version = "10-15", 0, version = "10-16", 0)

03/07/2017, 17h11
patricktoulon

re

bonjour oudouner
c'est quoi le message d'erreur???
03/07/2017, 17h22
Nicolas JACQUIN

Bonjour Patrick,
c'est normal, moi hier ça m'a fait pareil avec le test sur toute les versions, suffit de l'intégrer et c'est bon,
juste voir si le ratrappage est bon
03/07/2017, 17h28
patricktoulon

re

re
oui les rattrapages je te fait confiance je ne peux pas vérifier
mais il a dit erreur c'est le message que je voudrais bien connaitre
03/07/2017, 17h31
Nicolas JACQUIN

vu que la version est absente dans le swith donc elle ne peut pas etre calculer
utilisation incorrecte de null erreur 94
03/07/2017, 18h34
patricktoulon

re

OK j'ai le même retour pour eliminer ca au cas ou on aurait oublier une config dans le switch mettre les variable a zero avant le switch
03/07/2017, 20h38
Invité

Je fais les test demain quand je serais au boulot, je vous tiens au courant.

Bonjour,

Le message d'erreur était une erreur d'exécution '94' : Utilisation incorrecte de Null.

Le code fonctionne après avoir fait le remplacement.

EDIT: Si vous avez besoin :

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

04/07/2017, 15h40
patricktoulon

re

Merci oudouner ;)non on en a plus besoins puisque que l'on ne l'utilise plus

a tester absolument
il y a au moins 50 posts au minimum j'ai dis ca n'est pas pointstoscreenpixels!!!!!! qui déconne mais le ZOOM !!!!

j' ai recu des inpercuts verbaux me connaissant cela a déclenché forcement des réponses immédiates
et donc engendré des ceurelles absurdes et des démonstrations de savoir que je qualifierais pour ma part de cinématographique "suivez mon regard"
impossible de faire entendre raison
trouvant le sujet de discorde illogique j'ai decidé de prendre les chose a l'envers

alors ai je raison ou ai je tord ?????????????????

souvenez vous il y a a peine quelque posts je démontrait que l'on obtenait des series avec pointstoscreenpixels qui semblait ordonnées selon les zooms

alors fichtre non de dieu quézaco ca

c'est pas possible ca !!!!! un nombre au hasard ex: 10 multiplié par le zoom/100 avec un zoom a 120 donne bien 12 non de dieu !!!!!
et ainsi de suite
ON EST BIEN D'ACCORD!!!!!?????

ET BIEN NON pas avec excel !!!!!!!
tout du moins pas pour le HEIGHT!!!!!!!!!

une petite macro pour démontrer

j'ai mis un sleep au cas ou pour certains ca rentrerait pas assez vite hein !!! "suivrez mon regard "

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 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub testzoom() Cells(1, 1).Resize(1, 5) = Array("zoom", "height", "width", "difference du height avec le suivant", "difference du width avec le suivant") lig = 1 With ActiveWindow For i = 80 To 200 lig = lig + 1 .Zoom = i Cells(lig, 1) = .Zoom Cells(lig, 2) = [A1].Height * .Zoom / 100 Cells(lig, 3) = [A1].Width * .Zoom / 100 Sleep 100 Next ActiveWindow.Zoom = 100 .ScrollRow = 1 .ScrollColumn = 1 End With With Range("D2") .Select .FormulaR1C1 = "=R[1]C[-2]-RC[-2]" Selection.AutoFill Destination:=Range("D2:D200"), Type:=xlFillDefault End With With Range("E2") .Select .FormulaR1C1 = "=R[1]C[-2]-RC[-2]" Selection.AutoFill Destination:=Range("E2:E200"), Type:=xlFillDefault End With End Sub

je vous laisse constatez par vous même
sachant que le coefficient zoom(.zoom/100) lui s'incrémente régulièrement
souvenez vous les séries soit disant a cause de pointstoscreenpixels
et regardez d'où elle viennent

que notre cher professeur vienne me dire que j'ai tords maintenant
LOL ;)

04/07/2017, 21h45
pijaku

Bonjour,
je ne voulais plus intervenir sur cette discussion, mais je reviens juste pour demander à oudoumer de poster une copie d'écran du résultat de la dernière fonction de Patrick. Stp.........
04/07/2017, 23h22
patricktoulon

re

bonsoir pikaku
la quelle? parce que la dernière je l'ai pas posté sur ce forum
04/07/2017, 23h48
unparia

Tu sais ce que te répond ton "cher professeur", Patricktoulon ? --->>
Tu viens tout simplement de démontrer que tu n'as rien compris au fonctionnement du zoom.
Il ne modifie en aucun cas les propriétés left, top, width et height des cellules. Seule est modifiée l'image à l'écran. Pas les propriétés des cellules.
Tu devrais te montrer moins lyrique, gesticuler beaucoup moins et remettre les pieds sur terre.
Mouarf.
04/07/2017, 23h53
pijaku

Laquelle? Mais pardi celle qu'oudoumer a testé. Simplement...

si j'avais pas compris le zoom crois tu que j'utiliserais cette formule

Code:

1
2
3
 
Z=.zoom/100
ppx = IIf(((.ActivePane.PointsToScreenPixelsX([D3].Width) - .ActivePane.PointsToScreenPixelsX(0)) / Z) / [D3].Width > 1.34, 1.66666666666667, 1.33333333333333)

05/07/2017, 07h29
unparia

quand on est lourd, patricktoulon, on est lourd ...
que vient faire le zoom dans les résultats ? Rien ... ABSOLUMENT RIEN !
Remplace tous tes .zoom par la variable cancre -->> tu auras exactement les mêmes résultats (et pour cause). Alors ? Cancre = le zoom ?
Réveille-toi. Remets les pieds sur terre. :coucou:

EDIT : et reprends dans la foulée également quelques cours d'arithmétique. Tu en as apparemment un énorme besoin, toi qui sembles ne pas comprendre que (exemple) 83% de 20 - 82% de 20 est rigoureusement égal à 102% de 20 - 101% de 20, hein ...
Certaines "choses" sont vraiment pour le moins alarmantes et déprimantes ... :cry:

En te rappelant (puisque tu dis "avoir compris le fonctionnement du zoom") que les valeurs des propriétés de [A1] ne sont en aucun cas modifiées par le zoom et sont donc toujours les mêmes, hein ...
Bref ...

1 pièce(s) jointe(s)

Bonjour,

Voilà pijaku, en zoom 100% sur Excel avec cette fonction :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub version_ALLWin_Off() Dim ppx#, version As String, X#, Y#, SuppLeft#, Supptop# With CreateObject("WScript.Shell"): ppx = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") / 72: End With version = CStr(Val(Split(Application.OperatingSystem, " ")(3)) & "-" & Val(Application.version)) 'MsgBox version SuppLeft = Switch(version = "0-15", 0, version = "0-16", 0, version = "6,01-12", 4, version = "6,01-14", 0, version = "6,02-14", 0, version = "6,02-15", 0, version = "10-14", 0, version = "10-15", -5, version = "10-16", -5) Supptop = Switch(version = "0-15", 0, version = "0-16", 0, version = "6,01-12", 4, version = "6,01-14", 0, version = "6,02-14", 0, version = "6,02-15", 0, version = "10-14", 0, version = "10-15", 0, version = "10-16", 0) With ActiveWindow X = .ActivePane.PointsToScreenPixelsX([D3].Left) / ppx Y = .ActivePane.PointsToScreenPixelsY([D3].Top) / ppx End With With UserForm1 .Show 0 .Left = X + SuppLeft .Top = Y + Supptop End With End Sub
Pièce jointe 291479

Je tiens à préciser que je suis uniquement là en tant que testeur. Je n'ai absolument pas l'expérience et les compétences pour pouvoir juger de qui a raison et de qui a tort. Je suis juste intéressé par ce sujet et j'espère que la vérité finira par être connue de manière certaine.

EDIT: Quelqu'un pourrait-il aussi m'expliquer cette ligne, en particulier à quoi correspond la clé de registre utilisé ?

Code:

With CreateObject("WScript.Shell"): ppx = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") / 72: End With

05/07/2017, 10h34
patricktoulon

re

bonjour oudouner

quand tu change la taille des caractères d'affichage tu change le dpi96 a la base pour 120 a 125%
ce qui a pour conséquence d'agrandir tout ce qui s'affiche a l'écran

cette clé présente dans la base de registre dans w7 jusqu'à a W10 donne le dpi octroyé pour l'affichage écran

soit ici l'exemple le plus courant
dpi 96*125%=120
donc si le coefficient point to pixel=96/72=1,333333333333333
tu multiplie ce coeficient par 1.25(125%/100)=1,6666666666666667

on a ainsi un coefficient point topixel
en dpi 96 coefficient=1,333333333333333
en dpi amélioré (120) coefficient=1,6666666666666667

je précise qu'il sagit seulement d'affichage car certains pense que je n'ai pas compris
1 pixel étant immuable
05/07/2017, 10h50
Invité

Citation:

Envoyé par patricktoulon

bonjour oudouner

quand tu change la taille des caractères d'affichage tu change le dpi96 a la base pour 120 a 125%
ce qui a pour conséquence d'agrandir tout ce qui s'affiche a l'écran

cette clé présente dans la base de registre dans w7 jusqu'à a W10 donne le dpi octroyé pour l'affichage écran

soit ici l'exemple le plus courant
dpi 96*125%=120
donc si le coefficient point to pixel=96/72=1,333333333333333
tu multiplie ce coeficient par 1.25(125%/100)=1,6666666666666667

on a ainsi un coefficient point topixel
en dpi 96 coefficient=1,333333333333333
en dpi amélioré (120) coefficient=1,6666666666666667

je précise qu'il sagit seulement d'affichage car certains pense que je n'ai pas compris
1 pixel étant immuable

Donc, le dpi octroyé à l'écran change en fonction du zoom que l'on applique à l'écran ? Et le zoom Excel a aussi cet effet ?

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