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

Dudu2 · 18 Juillet 2022

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.

Dudu2 · 22 Juillet 2022

@TooFatBoy,
Super, je crois qu'on peut dire qu'on a réussi ! Et c'est tout sauf simple !
Je dis "on" parce que sans ta config complètement bizarre et ton assiduité aux tests, rien n'aurait été possible.
Merci pour ton aide. Je reposte le fichier ici pour faire de ce post la solution.

Je rappelle la partie utile du bidule:
Dans le Module_UserFormMultipleScreens, 2 fonctions de positionnement UserForm:
- PlaceUserFormInExcelSameMonitor(Usf, Position)
- PlaceUserFormInExcelOtherMonitor(Usf, Position)

La position est une des constantes publiques déclarées dans le module en question:

VB:

Public Const PositionMiddle = "Middle"
Public Const PositionTopLeftCorner = "TopLeftCorner"
Public...

TooFatBoy · 21 Juillet 2022

C'est vrai que ça a été un peu la galère de trouver tout le bon matériel, mais rien d'insurmontable, et ça me fait plaisir de faire des tests.

J'ai complété ma réponse précédente.

TooFatBoy · 21 Juillet 2022

Désolé, suis trop con !!! J'ai pris le programme de #14 et non celui de #28 !
Je refais les tests et je corrige ma réponse #30.

Dudu2 · 21 Juillet 2022

J'ai ajouté l'option en [L8]. Essaie avec cette option 1 pour le 3ème bouton.
Si tu ne vois pas le UserForm fait {F1} pour afficher ses coordonnées.

D'autre part je ne comprends pas ton dernier screenshot où tu dis être en écran secondaire ce que ne voit pas le bouton 1. Je l'ai complété d'une information pour voir où se trouve Excel par rapport à l'écran primlaire.

C'est très difficile de tester comme ça. Si on n'y arrive pas, j'essaierai de trouver une solution chez moi.

TooFatBoy · 21 Juillet 2022

Voilà, j'ai fini les tests avec #28, et j'ai édité #30.

Je continue avec le programme de #34.

Dudu2 · 21 Juillet 2022

Petit bémol, mais probablement voulu : pour 4 et 5, les fenêtres ne sont pas tout à fait en bas. Il y a un petit espace entre la fenêtre et la barre des tâches.

Oui, ce sont les marges du USerForm en Windows 10.
Voir ce sujet https://excel-downloads.com/threads/annule-vba-positionner-userform-aux-limites-de-lecran.20069310/

TooFatBoy · 21 Juillet 2022

Dudu2 à dit:
Oui, ce sont les marges du USerForm en Windows 10.

Certes, mais pour les Userforam en-haut, il y a aussi cet écart à gauche pour 2 et à droite pour 3, mais il n'y a pas cet écart au-dessus.

Dudu2 · 21 Juillet 2022

L'écart au dessus est de 0.8 point, peu visible.
Les décalages à gauche pour 2 et à droite pour 3 sont des marges invisibles du UserForm.
Elles font partir intégrante du UserForm.
Si tu veux voir la même chose sans les marges du UserForm prends le fichier dans ce post.

J'y ai retiré les marges du UserForm en Windows 10.
Mais attention, il n'y a pas ces marges pour les version antérieures de Windows / Excel ou ce ne sont pas les mêmes.

S'il le faut je corrigerai ça plus tard. Mais avant il faut résoudre le positionnement en écran secondaire et selon les différences de résolution, ce n'est pas de la tarte alors que ça devrait être simple.

TooFatBoy · 21 Juillet 2022

Bouton 3 :
1- left = 3436,9 et top = 747
2- 2880 et 0
3- 3993,75 et 0
4- 2880 et 1494
5- 3993,75 et 1494

Dudu2 à dit:
il faut résoudre le positionnement en écran secondaire et selon les différences de résolution, ce n'est pas de la tarte alors que ça devrait être simple.

Toutafé !!!

Dudu2 · 21 Juillet 2022

Merci.
Je fatigue. On reprendra demain si tu es là.
Bonne soirée.

TooFatBoy · 21 Juillet 2022

OK. @ demain et bonne nuit

Dudu2 · 22 Juillet 2022

Bon, j'ai réussi à utiliser mon petit laptop et connecter l'écran de mon desktop en secondaire.
C'est très compliqué.
Déjà pour savoir si Excel est en primaire ou en secondaire, on ne peut pas utiliser ActiveWindow à cause de ces histoire de thème qui donnent des coordonnées foireuses (jamais 0 en Activewindow.Left en full screen).
Il faut aller chercher les coordonnées absolues du Client Excel. Ok ça je sais faire.

Mais reste un problème délicat. Comment récupérer la hauteur de l'écran secondaire ?
Le Height Total donne le plus grand des 2. Il faut que je trouve une solution sinon ça s'arrêtera là !

TooFatBoy · 22 Juillet 2022

Dudu2 à dit:
Mais reste un problème délicat. Comment récupérer la hauteur de l'écran secondaire ?
Le Height Total donne le plus grand des 2.

Oui, et je suppose que ce n'est pas forcément l'écran secondaire qui pose problème mais, de façon plus générale, l'écran avec la définition verticale la plus faible.

Le problème semble bien être là : il faudrait arriver à obtenir les définitions réelles de chacune des sorties vidéos actives.

Il est probable qu'Excel ne sache pas faire ça et que seul Windows puisse te donner la réponse. Mais comment ???

Dudu2 · 22 Juillet 2022

Bon, voilà les RECT des Moniteurs primaire et secondaire.
Reste à tout adapter !

TooFatBoy · 22 Juillet 2022

Ben voilà, c'est tout bon !
Tu connais donc les définitions des écrans et leurs positions.

Comme tu dis, y a plus qu'à. Allez hop, au boulot

Dudu2 · 22 Juillet 2022

Ton tour viendra

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

Dudu2

XLDnaute Barbatruc

Pièces jointes

Dudu2

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Discussions similaires