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

Dudu2

XLDnaute Barbatruc

• 19 Juillet 2022

• #16

J'aurais pu faire un calcul plus savant en combinant le (.Left + .Width) / 2 pour savoir où est la plus grande partie de la fenêtre Excel mais j'ai pris l'hypothèse que l'utilisateur ne place pas les fenêtres de ses applications au milieu des 2 écrans.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Juillet 2022

• #17

Perso, les deux me conviennent.

Good job !

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Juillet 2022

• #18

Évidemment, j'ai laissé trainer des UserForm1 dans les fonctions dont le paramètre est Usf, donc le code et le fichier corrigés sont à reprendre dans le post #14.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Juillet 2022

• #19

Bonjour @TooFatBoy,
Je vais te demander un truc un peu spécial car l'utilisateur pour lequel j'ai fait cette manip a une configuration particulière qui met en défaut le positionnement du UserForm sur l'écran secondaire quand Excel est sur l'écran primaire.

Son écran secondaire a une résolution en largeur différente (le double) de la résolution de l'écran primaire.
Le UserForm du bouton #3 est décalé vers la droite comme si le positionnement ne tenait compte que de la résolution de l'écran primaire.

Bref...
Peux-tu changer la résolution en largeur de ton écran secondaire le temps d'un test en l'augmentant (voire en la doublant) et, Excel en écran primaire, déclencher le Bouton #3 et faire un screenshot de la position du UserForm dans l'écran secondaire.

Si tu ne peux pas j'essaierai de régler ça autrement, mais j'aimerais recouper les infos avec ton test.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Juillet 2022

• #20

Dudu2 à dit:

Peux-tu changer la résolution en largeur de ton écran secondaire le temps d'un test en l'augmentant (voire en la doublant) et, Excel en écran primaire, déclencher le Bouton #3 et faire un screenshot de la position du UserForm dans l'écran secondaire.

Cliquez pour agrandir...

Hélas : voir #12

J'ai un vieux moniteur dans mon sous-sol. Il faut que je trouve un cordon d'alim. et un cordon DVI/DVI (c'est pas gagné... et en plus pas le temps ce matin ).

 

Dernière édition: 20 Juillet 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Juillet 2022

• #21

Pas grave, je vais pas te demander d'aller entre les toiles d'araignées sortir un viel écran de la poussière

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Juillet 2022

• #22

Ca, ce n'est pas grave, le plus embêtant c'est de trouver les cordons...

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Juillet 2022

• #23

Laisse tomber, je vais m'arranger avec mon utilisateur.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Juillet 2022

• #24

Je chercherai quand même les cordons ce soir, et je te dirais si je les ai trouvés.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 21 Juillet 2022

• #25

Dans le cas où l'écran secondaire n'a pas la même largeur en pixels que l'écran primaire, je confirme que pour positionner le UserForm au milieu de l'écran secondaire, il faut tenir compte non pas de sa largeur à lui, mais de celle de l'écran primaire.

Donc ce qui semblait implacablement logique:

VB:

Usf.Left = PrimaryMonitorWidth + (SecondaryMonitorWidth - Usf.Width) / 2

Doit être remplacé par cette incohérence logique peut-être liée à des re-calculs Excel masqués (?).

Code:

Usf.Left = PrimaryMonitorWidth + (PrimaryMonitorWidth - Usf.Width) / 2

En tous cas, c'est l'expérience qui le démontre. Alors...

J'ai donc à nouveau modifié le post #14 accordingly.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 21 Juillet 2022

• #26

Désolé je n'ai pas encore eu le temps d'installer le vieux moniteur pour faire les tests.. Mais c'est en cours.

Tu dis que ça dépend de la largeur de l'écran primaire, mais si le primaire est à droite, c'est pareil ???

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 21 Juillet 2022

• #27

Pour les tests de @TooFatBoy...

 

Pièces jointes

• VBA Position UserForm avec 2 Moniteurs Screens Écrans.xlsm

  47.1 KB · Affichages: 5

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 21 Juillet 2022

• #28

OK, je prends ce fichier et je fais les tests.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 21 Juillet 2022

• #29

Tout d'abord, le matos :
Écran primaire à droite : 3840x2160 pixels
Écran secondaire à gauche : 1920x1200 pixels

---

1- Excel sur écran primaire

Bouton 1 :


Bouton 2 : Pas mal..
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.
De même, il y a un aussi petit espace, à gauche pour 4, à droite pour 5.


Bouton 3 : je ne vois la fenêtre dans aucun des 5 cas..

---

2- Excel sur écran secondaire :

Bouton 1 :


Bouton 2 : la fenêtre ne s'affiche pas sur le même écran qu'Excel (elle s'affiche sur le primaire).
Mêmes constats qu'avec Excel sur l'écran primaire.

Bouton 3 : je ne vois la fenêtre dans aucun des 5 cas..

 

Dernière édition: 21 Juillet 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 21 Juillet 2022

• #30

Ok merci pour tout ce que tu as fait pour avoir un 2ème écran et pour tes tests.
Je vais essayer de trouver le problème.

 

Vote positif 0 Vote négatif