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.

 

[Dudu2]

@TooFatBoy, si tu as bien pris le dernier fichier, je comprends pas que tu puisses avoir des Left négatifs.
Chez moi, avec ou sans barre des tâches ça positionne correctement sur le 2ème écran.
Ou alors y a un truc énorme qui m'a échappé.

@patricktoulon, j'utilise la différence rcMonitor - rcWork pour déterminer la taille de la TaskBar où qu'elle soit.
Je n'ai que mon environnement pour tester et j'obtiens le résultat escompté.
Les tests de @TooFatBoy sont utiles pour confirmer les miens... sauf quand ça diverge et là c'est très difficile d'en trouver la cause car il faudrait que je me connecte chez lui.
Dans ton environnement Windows 7, peux-tu faire un Screenshot de ce que dit le Bouton 1 sur les valeurs d'affichage ?

 

[TooFatBoy]

@TooFatBoy, si tu as bien pris le dernier fichier, je comprends pas que tu puisses avoir des Left négatifs.
Chez moi, avec ou sans barre des tâches ça positionne correctement sur le 2ème écran.
Ou alors y a un truc énorme qui m'a échappé.

Le négatif c'est normal. C'est le zéro qui ne l'est pas.

​

 

[Dudu2]

Tu peux refaire un screenshot du bouton 1 avec ce fichier STP ?

 

[TooFatBoy]

Tu peux refaire un screenshot du bouton 1 avec ce fichier STP ?

Vos désirs sont des ordres

​

Ca m'a l'air tout bon.

 

[Dudu2]

Non, y a un problème sur la barre des tâches du secondaire dont les coordonnées sont incohérentes.
C'est de là que vient le problème chez toi.
Tu l'as mise où la barre des tâches du secondaire ?

 

[TooFatBoy]

y a un problème sur la barre des tâches du secondaire dont les coordonnées sont incohérentes.

Non, ça m'a l'air d'être bon (à comparer avec #62).
Et voir le texte que je viens de mettre en rouge dans #59.


Complément :

 

[Dudu2]

Ok je vois ce que tu veux dire...
Peux-tu refaire un Screenshot du Bouton 1 avec ce fichier STP ?

 

[TooFatBoy]

​

Ca me semble toujours bon.

 

[Dudu2]

Ok, je comprends mieux, et il faut que je revoie tous les calculs qui ont comme hypothèse des valeurs positives.
Mais je ne comprends pas qu'il y ait des valeurs négatives ou des Top qui partent pas à 0 +/- un chouia avec les considérations de @patricktoulon sur les histoires de thème et autres. Bon, c'est comme ça.

Je verrai ça plus tard car en fait il faut que je remette tout à plat et que je simplifie.
Bonne soirée et merci encore.

 

[TooFatBoy]

Mais je ne comprends pas qu'il y ait des valeurs négatives ou des Top qui partent pas à 0.

C'est logique : puisque l'écran primaire commence en (0,0) et qu'il est à droite, les coordonnées horizontales de l'écran secondaire sont négatives.
De plus, comme les écrans ne sont pas alignés en haut, les coordonnées verticales de l'écran secondaire ne commencent pas à zéro.

 

[Dudu2]

Je vois ! Donc pour me compliquer la vie, t'as mis le primaire à droite et un secondaire qui s'aligne pas.
Ah ben bravo !

Remarque, si ça passe chez toi, ça passera partout

Mais je crois savoir comment je vais simplifier mon bazar pour le faire fonctionner.

 

[TooFatBoy]

Mais je crois savoir comment je vais simplifier mon bazar pour le faire fonctionner.

Avec ton programme de #43 tu as les coordonnées des écrans, donc comme je disais en #44 y a plus qu'à.

 

[patricktoulon]

re
sur mes deux ecrans j'ai la meme chose

et le 2d message

et c'est pareil sur les deux écrans

 

[Dudu2]

Voilà, ça devrait aller beaucoup mieux et le code est bien simplifié.
Finalement je me base exclusivement sur le rcWork du GetMonitorInfo() Type MONITORINFO.
Tanpis si pour certains cas de thème ou autres de versions Windows < 10 il varie quelque peu. A voir.
@patricktoulon nous dira !

Chez moi ça marche parfaitement, et je ne fais plus aucun décalage savant en fonction du Moniteur ou de la Barre des Tâches. rcWork is the Truth

.

Edit: une amélioration possible serait de désigner le n° de moniteur au cas où il y aurait 3+ moniteurs.

 

[TooFatBoy]

C'est tout simplement parfait !

​

Ou presque : quand Excel est sur le secondaire, les UserForm s'affichent à l'inverse de là où ils devraient être.
Autrement dit, les UserForm s'affichent au même endroit, qu'Excel soit sur le primaire ou le secondaire.