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]

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]

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]

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]

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

Je continue avec le programme de #34.

 

[Dudu2]

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]

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]

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]

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

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]

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

 

[TooFatBoy]

OK. @ demain et bonne nuit

 

[Dudu2]

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]

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]

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

 

[TooFatBoy]

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]

Ton tour viendra