Discussion :

[patricktoulon]

JP ton post 656 n'est pas une surprise du tout tu prouve seulement tu n'a pas compris mes explications sur ce que fait pointstoscreenpixels

et sur ce que fait une postion point zoom ou pas zoom par ptopix

je vais répéter doucement

les calculs point (cellule .left ou top) vers ptopix sont bons sauf que même en point a l'écran devant tes yeux c'est faux

tandis pointstoscreenpixel lui voit la position de la cellule déformé c'est pour ca qu'il ne se trompe pas et donc divisé par pttopix donnera un résultat exacte moyennant simplement un ajustement au du shell qui n'a absolument rien a voir avec Excel

conclusion en l'état actuel
il ne sert a rien d'essayer de récupérer un point de l'écran en unité de point et de le passer par ppx il sera faux forcement je dis ca mais attention je ne parle que d'affichage (ce que l'on voit en temps reel a l'écran) car en terme de résultat calcul c'est bon


c'est simplement une représentions graphique a l'écran erronée

c'est comme si tu avait un projecteur de diapo qui n'est pas parallèlement placé devant la surface de réception on voit le width ou le height déformé pourtant la diapo elle ne change pas

ou plus simple ta simple ombre quand il est midi et la même quand il est 5 heure

edit
au fait ton fichier en xml confirme mes doutes
donne la vrai largeur

Code :

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

1
2
 x:FullRows="1" ss:DefaultRowHeight="14.5">
   <Column ss:AutoFitWidth="0" ss:Width="60"/>

regarde ce que donne 2007

Code :

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

1
2
3
4
5
<Worksheet ss:Name="Feuil1">
  <Table ss:ExpandedColumnCount="1" ss:ExpandedRowCount="1" x:FullColumns="1"
   x:FullRows="1" ss:DefaultColumnWidth="62.400000000000006"
   ss:DefaultRowHeight="14.4">
  </Table>

on constate donc bien que selon les versions excel a déjà prévu un ajustement mais il est faux

j'avais fait le test avec 2010 sur le même pc et ca donnait 61.00000000006.....

la question que je me poserait c'est plutôt est ce fait dynamiquement a l'ouverture du classeur ou est ce préprogrammé

[patricktoulon]

re
si je prends par exemple les 2.4000000000006 qui sont en trop dans le xml et que je le multiplie par pttopx par la base de registre pour etre sur
j'obtient je te le donne dans le mille
ceci:
4,00000000081

tient tient hein !!???? comme c'est bizarre vous m'avez dit bizarre????

[unparia]

attendons maintenant jacques qui a mon avis a du pain sur la planche pour démêler tout ca

mais maintenant qu'il sait que ca n'est pas pointstoscreenpixels lui et son équipe pourraient nous trouver la bombe

du "pain sur la planche", c'est certain.
Plusieurs points à régler :
1) Pointstoscreenpixels qui n'est pas toujours fiable. Nous le savons car nous avons été confrontés à des cas où le curseur lui-même n'était pas placé très exactement.
Or, le curseur (par setcursorpos) est positionné GRAPHIQUEMENT lui aussi en pixels relatifs à l'ECRAN ... . La transposition en Points de ses coordonnées en points par rapport à l'écran se fait par utilisation directe du DPI sans que Excel et son zoom n'aient plus rien à y voir et il n'y a alors aucune raison pour que le userform ne soit pas placé graphiquement aux mêmes coordonnées graphiques. Il y a toutefois bien évidemment problème lorsque le curseur est lui-même mal positionné à la base (cas que nous avons rencontré dans certains cas).
2) la plus petite dimension graphique est celle d'un pixel, ce qui pose quelques petits problèmes de transposition graphique. Nous sommes parvenus, en faisant intervenir des arrondis dans nos calculs, à réduire considérablement les "écarts" constatés, sans toutefois parvenir à la perfection absolue.
3) nous allons tenter une autre approche, dès demain -->> celle de calculs faits non plus sur des positions absolues, mais sur des positions relatives. Ce ne sera pas simple, mais nous allons tenter.
A plus.

[patricktoulon]

OK je vais attendre la démo de ce point de vue pourquoi pas

mais sache que sur 2010 et 2007 avec w7 et 2013 et windows 10 quand on désactive le thème plus aucun soucis, aucun a 100%ave directement pointstoscreenpixels sur une cellule

[patricktoulon]

d'ailleurs si tu pouvais me donner un exemple ou il y a défaillance avec pointstoscreenpixels avec le curseur ou un userform ca me permettrais de chercher de mon coté aussi

[unparia]

Non. Pas d'exemples recensés. Juste des rapports de constats.
Mais peux-tu, toi, me donner un exemple de position graphique du userform différente de la position graphique par setcursorpos en appliquant le "appliedDPI" ?
Entendons-nous bien : angle supérieur gauche du userform non placé à la pointe du curseur en transposant en points les coordonnées du curseur par application du dpi en vigueur.

[unparia]

Et cet aspect, Patrick, n'a absolument plus rien à voir avec Excel.
Quelles que soient les coordonnées graphiques en pixels du cursor à l'ECRAN, leur transposition en Points y placera AU MEME ENDROIT le userform.
Demo ? --->>

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
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
 
 
Private Sub CommandButton1_Click()
 Dim pospixX As Long, pospixY As Long
 Dim pixelstopoints As Double, objWSH As Object
  Set objWSH = CreateObject("WScript.Shell")
  pixelstopoints = objWSH.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI") / 72
 pospixX = 1225
 pospixY = 327
 SetCursorPos pospixX, pospixY
 UserForm2.Left = pospixX / pixelstopoints
 UserForm2.Top = pospixY / pixelstopoints
 UserForm2.Show 0
 
End Sub

joue autant que tu veux avec les coordonnées -->> même position (bien évidemment)

[patricktoulon]

re
fait moi plaisir met ton show avant de placer le userform ca marchera mieux
testé chez moi c'est nikel

[unparia]

met ton show avant de placer le userform ca marchera mieux

En vertu de quel principe cela "marcherait mieux" ?
La seule évocation d'un userform le charge en mémoire et permet d'en modifier les propriétés.
Et contrairement à ce que tu penses, il est mieux de les modifier avant de le montrer. Cela évite de montrer, PUIS positionner.
Je ne comprends pas ton animation. Commente-là
J'observe par ailleurs que ton userform n'est pas "plat" (ombrage, entre autre).

[patricktoulon]

re oui c'est vrai je n'est pas commenté l'animation
je reprends donc ton code tel quel avec le show après
je sais pas ou tu va chercher tes certitudes


je te donne un indice

PAS TOUTES LES PROPRIETES

ET d'après toi pourquoi?

[unparia]

J'ajoute ceci en ce qui concerne ta remarque relative au moment d'utiliser le show :
- à l'utiliser d'abord, le déplacement interviendra alors que le userform est affiché et se traduira par un petit tressautement (déplacement visible)
- ta commande de placement du curseur interviendra alors que l'affichage du déplacement de l'userform n'est pas terminé (l'affichage - graphique - à proprement parler et non l'instruction d'affichage qui, terminée, passera la main à la suivante : le placement du curseur ...)
- que le principe de modification des propriétés de l'userform AVANT son affichage est le même pour tous les formulaires Windows (forms, userforms, ...), que ce soit sous VB6, VBA, etc ...
Un exemple de ce principe quasi fondamental ? --->> https://support.smartbear.com/testco...form/show.html
Tu y liras ceci (rubrique REMARKS) :

Remarks
When the form is displayed for the first time, by default it appears in the center of the screen. If you need to display the form in the custom screen position, specify the desired X and Y coordinates in the Left and Top properties respectively, before calling the Show method.

Ce n'est pas là un aspect anodin, Patrick.

Je viens de voir ta seconde animation ! Elle est étonnante et ne correspond ni de près ni de loin à ce que j'obtiens !
Si cela continue, je vais te demander ton classeur (rétrogradé pour lecture avec Office 2007) et je l'ouvrirai (exception) sur une machine dédiée à l'ouverture de classeur tiers.

[patricktoulon]

la preuve que non les 2 captures parlent d'elles même

1. show avant curseur et userform bon
2. show après userform en postions centré(non modifié) et curseur bon

je dirais même mieux le curseur est placé différemment
allez je te fait un classeur avec les deux

[patricktoulon]

test avec les deux boutons

[unparia]

Attends un peu, toi ...
J'espère au moins que ton userform n'est pas "figé" au centre et que tu as bien mis à 0 (en "manual") sa propriété winsowstate, hein ...
Car sinon, ma foi, tu ne risques pas de le déplacer !

[patricktoulon]

meme en modal a false en manuel dans vbe ca ne fonctionne pas et ca ne peut pas fonctionner

quand au lien que tu a donné en aucune manière il s'agit de VBA mais d'autre langages pouvant piloter le userform

et la effectivement en javascript par exemple on a la methode show paramétrée plus importante qu'en vba qui n'a que modal ou pas

les 2 méthodes se traduisent par
VBA show +constante vbmodless
javascript show () les parenthèses transportants les variables prédéterminées dans le code comme dans les exemples proposées

pauvre malheureux celui qui irait chercher solution sur ce lien en ce qui concerne le show je ne sais pas pour le reste mais vu l'énormité pour le show je m'y suis pas attardé
ca devrait être puni par la loi

[unparia]

C'est une plaisanterie, Patrick ?
Il se trouve que tu as mis dans ton bouton 1 (intitulé "show avant") mon code avec show après -->> et il marche en effet (c'est le mien avec show après)
et que celui qui ne marche pas et que tu a mis dans ton bouton 2 en l'intitulant "show après" est ... le tien, avec un show avant !

Je crois que tu as besoin de dormir, hein ...
Allons allons ...

[Nicolas JACQUIN]

Attends un peu, toi ...
J'espère au moins que ton userform n'est pas "figé" au centre et que tu as bien mis à 0 (en "manual") sa propriété winsowstate, hein ...
Car sinon, ma foi, tu ne risques pas de le déplacer !

Bonjour,
avec statupposition à manual ton code fonctionne effectivement bien,
et je me rend compte que maintenant pourquoi avec tes codes le userform était souvent centré

[patricktoulon]

a oui c'est vrai je me suis trompé de titre des boutons j'ai inversé j'ai fait ca hyper vite

mais ca reste le show après réellement dans le code qui marche chez moi

[unparia]

Salut Nicolas

Ouais ... et en plus, son userform2 est en centerowner (la totale, quoi ..)

Patrick a vraiment un grand besoin de dormir.

[unparia]

C'est drôle, Patrick ... Cela marche très bien chez Nicolas