XL 2016 VBA - 2 écrans - Positionner un UserForm dans le même ou l'autre écran par rapport à Excel

[Dudu2]

Bonjour à tous,

Si quelqu'un possède 2 moniteurs, j'aimerais qu'il prenne quelques minutes pour tester les 3 boutons de ce programme et vérifier si ça fait ce que ça dit ou si ça part en live complet !
En prenant la peine de positionner la fenêtre Excel une fois dans le Moniteur primaire et une fois dans le Moniteur secondaire.

Merci par avance.

 

[TooFatBoy]

Euh... maintenant que c'est devenu trop simple pour toi avec deux écrans, on parle des config à trois écrans ou pas ?

En tout cas, chapeau !
Je crois que c'est la première fois que je vois
une macro VBA donner les bons résultats !
​

 

[Dudu2]

En fait il me manque maintenant la position de la Barre des Tâches dans le 2ème écran ! Pas gagné !

 

[Dudu2]

J'ai trouvé par chance une autre méthode pour la Barre des Tâches de chaque écran.
Tu peux essayer ce fichier ?

Y a juste un truc qui m'échappe totalement. C'est la conversion Pixels -> Points avec des ratios différents pour chaque écran. Je ne me suis pas penché sur la question car les tests fonctionnent très bien chez moi avec des écrans de ratios différents de 1,33333 et 1,66666 pour la conversion.

 

[TooFatBoy]

J'adore


J'aime moins

 

[Dudu2]

Tu es sûr d'être en écran secondaire pour Excel ?
Chez moi j'ai testé ça et pas trouvé de problème.

 

[TooFatBoy]

Bouton 2 avec Barre des tâches visible :
1- OK
2- OK
3- OK
4- OK
5- OK

Bouton 2 avec Barre des tâches masquée automatiquement :
1- OK
2- UserForm non visible (Left=0 et Top=1620)
3- UserForm non visible (Left=2553,75 et Top=1620)
4- OK
5- OK

 

[TooFatBoy]

Tu es sûr d'être en écran secondaire pour Excel ?

Euh... difficile de se tromper quand on n'a que deux écrans...

Je pense que c'est la fonction IsExcelInPrimaryMonitor() qui mal conçue au niveau "logique".

 

[Dudu2]

Ok merci pour ton retour. Je termine ma nuit et reprends ensuite .

 

[TooFatBoy]

Il y a un tout petit détail qui me chagrine un peu : il y a un pixel de trop...
Mais lequel ??? celui de gauche, ou celui de droite ?

Si l'écran fait 3840 pixels de large, ça va de 0 à 3839 ou de 1 à 3840 ???

 

[Dudu2]

Ça part de zéro. donc le dernier pixel est 3839. 3840 est le 1er pixel de l'écran de droite.
Enfin je crois...

Pour commencer par le 1er problème... J'ai ajouté un MsgBox des valeurs du Client Excel.
Peux-tu voir ce que ça dit sur le 1er bouton ?

 

[TooFatBoy]

Les valeurs sont bonnes.

 

[Dudu2]

OK, Merci !
Maintenant il faut que je corrige le bug de l'absence de barre des tâches dans l'un ou l'autre écran.

 

[Dudu2]

Bon, maintenant ça devrait aller mieux...

 

[TooFatBoy]

Excel en primaire :

Bouton 1 : OK

Bouton 2 : le UserForm est bien sur le primaire
1- OK
2- OK
3- OK
4- OK
5- OK

Bouton 3 : le UserForm est bien sur le secondaire
1- OK sur la largeur mais pas sur la hauteur
2- UserForm non visible ( Left=-1440 et Top=0)
3- UserForm non visible ( Left=-326,25 et Top=0)
4- UserForm bien à gauche mais pas en bas
5- UserForm bien à droite mais pas en bas

---

Je pense que tu as oublié de tenir compte du fait que les moniteurs ne sont pas forcément alignés.

[edit]
En effet, c'est tout bon pour le bouton 3 si j'aligne le haut des deux moniteurs.
[/edit]

 

[patricktoulon]

re
Bonjour @Dudu2
Attention!!!!!
rcMonitor As RECT
rcWork As RECT
selon le mode d'affichage des ecrans , (dupliqué ou entendu et/autres ) ces deux rect donnent pas la même chose
par exemple chez moi sur mon pc portable
ci dessous le mode d'affichage
ecran pc et tv sur hdmi

ici ça me donne
la résolution paramétré de l’écran du pc
et
la dimension de la surface de travail de l’écran du PC qui en effet diminue un peu quand je branche l'ecran2(tv) sur le hdmi
mais ça me donne pas la résolution de l'ecran 2

#If vba7 Then
Declare ptrsafe Function  GetMonitorInfo Lib "user32.dll" Alias "GetMonitorInfoA" (ByVal hMonitor As Long, ByRef lpmi As MoniteurInfo) As Long
Declare  ptrsafe Function MonitorFromPoint Lib "user32.dll" (ByVal x As Long, ByVal y As Long, ByVal dwFlags As Long) As Long
Declare  ptrsafe Function MonitorFromRect Lib "user32.dll" (ByRef lprc As RECT, ByVal dwFlags As Long) As Long
Declare  ptrsafe Function MonitorFromWindow Lib "user32.dll" (ByVal hwnd As Longptr, ByVal dwFlags As Long) As Long
Declare  ptrsafe Function EnumDisplayMonitors Lib "user32.dll" (ByVal hdc As Longptr, ByRef lprcClip As Any, ByVal lpfnEnum As Long, ByVal dwData As Long) As Long
Declare  ptrsafe Function GetWindowRect Lib "user32" (ByVal hwnd As Longptr, lpRect As RECT) As Long
#Else
Declare Function GetMonitorInfo Lib "user32.dll" Alias "GetMonitorInfoA" (ByVal hMonitor As Long, ByRef lpmi As MoniteurInfo) As Long
Declare Function MonitorFromPoint Lib "user32.dll" (ByVal x As Long, ByVal y As Long, ByVal dwFlags As Long) As Long
Declare Function MonitorFromRect Lib "user32.dll" (ByRef lprc As RECT, ByVal dwFlags As Long) As Long
Declare Function MonitorFromWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal dwFlags As Long) As Long
Declare Function EnumDisplayMonitors Lib "user32.dll" (ByVal hdc As Long, ByRef lprcClip As Any, ByVal lpfnEnum As Long, ByVal dwData As Long) As Long
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
#End If

Const MONITORINFOF_PRIMARY = &H1
Const MONITOR_DEFAULTTONEAREST = &H2
Const CCHDEVICENAME = 32

Type RECT:  Left As Long:  Top As Long:  Right As Long:  Bottom As Long: End Type

Type MoniteurInfo
  cbSize As Long
  rcMonitor As RECT
  rcWork As RECT
  dwFlags As Long
  szDevice As String * CCHDEVICENAME
End Type

Dim A$

Sub EnumEcrans()
A$ = ""
EnumDisplayMonitors ByVal 0&, ByVal 0&, AddressOf MonitorEnumProc, ByVal 1&
MsgBox A$
End Sub
Public Function MonitorEnumProc(ByVal hMonitor As Long, ByVal hdcMonitor As Long, lprcMonitor As RECT, ByVal dwData As Long) As Long
Dim MI As MoniteurInfo

MI.cbSize = Len(MI)
GetMonitorInfo hMonitor, MI

With MI.rcMonitor
  A$ = A$ & "Moniteur Width/Height : " + CStr(.Right - .Left) + "x" + CStr(.Bottom - .Top) & vbLf
End With
''---
With MI.rcWork
  A$ = A$ & "Moniteur Width/Height (surface de travail) : " + CStr(.Right - .Left) + "x" + CStr(.Bottom - .Top) & vbLf
End With

MonitorEnumProc = 1
End Function