XL 2016 affichage userform avec 2 ou + ecrans

[roby]

Bonjour le forum,

Lorsqu'on lance un fichier Excel sur un poste avec plusieurs écrans, à chaque fois les userform s'affichent sur un autre écran que l'écran ou est affiché excel.
y a-t-il une parade pour que cet userform s'affiche dans la même fenêtre que excel ?

je joint le même fichier solutionné dernièrement pour le test.

Merci encore.

 

[Dudu2]

Résultat chez moi:

 

[Dudu2]

Le même en dynamique:

 

[Dudu2]

Tu ne le savais évidemment pas, mais tu comprends pourquoi je reviens sur l'API.
J'ai retiré le terme "foireux" pour qualifier ces résultats de manière un peu abrupte, mais avoue que c'est quand même pas génial.

 

[TooFatBoy]

tu peux zoomer ou dezoomer elle est à 1.333333333333333 en DPI normal ou 1.6666666666667 en dpi 120

Autant pour le reste de votre discussion je n'ai absolument rien compris (c'est beaucoup trop balèze pour moi), autant là je sais que c'est n'importe quoi : comme je te l'ai déjà expliqué plusieurs fois, "dpi 120" ne veut rien dire, ça n'a aucun sens ; c'est "zoom 125 %".
Pas facile de perdre les mauvaises habitudes, hein...

 

[patricktoulon]

1666666667 tu es en dpi 120 soit 125%
pour preuve voici comment tu l'obtient par le registre
et oui visiblement chez toi en dpi 120 ça déraille
très mauvaise gestion graphique peut etre tourne tu avec les drivers graphique genérique microsoft et non ceux de la marque de ta carte graphique

il y a la solution registre aussi

Function PtoPX() As Double
PtoPX = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI") / 72
End Function

Function dpi() As Double
dpi = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI")
End Function

Sub test()
MsgBox "Applied DPI   " & dpi
MsgBox " coeff ptopx  " & PtoPX
End Sub

chez moi 96 soit 100%

 

[Dudu2]

C'est pas mal en effet. Pour éviter des Shell sur des calculs en boucle c'est mieux de le garder en mémoire.

Function PointToPixel() As Double
    Static SavePointToPixel As Double
   
    If SavePointToPixel = 0 Then
        SavePointToPixel = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI") / Application.InchesToPoints(1)
    End If
    PointToPixel = SavePointToPixel
End Function

Ou peut-être aussi lier la conservation mémoire au moniteur qu'il faudrait alors passer en paramètre.

Par contre en API on a les conversions en X et en Y, pareil pour le PointToPixelsX et Y.
Alors est-ce encore nécessaire ? Ou peut-on bypasser ce split X et Y ?

 

[Dudu2]

Il y a peut-être un souci avec le moniteur concerné. Si on peut avoir des résolutions différentes sur plusieurs moniteurs utilisés ?
En API c'est GetDC qui avec le Handle de la Window ou si 0 avec le "screen" va lier avec un moniteur.
Lequel d'ailleurs ?
En Registre ?