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]

Ach ! @TooFatBoy, quand tu testes, tu testes !

Rien ne t'échappe

 

[Dudu2]

Chez moi ça marche, mais je pense que c'est le test si Excel est dans l'écran primaire qui ne va pas.
Tu peux vérifier avec le bouton 1 avec Excel en secondaire ?

 

[Dudu2]

J'ai mieux cerné le test dans cette version.
Vérifier avec le bouton 1.

 

[TooFatBoy]

Pareil...

 

[Dudu2]

Ok. Mais que dit le bouton 1 avec Excel en Secondaire ? Tu peux faire un screenshot ?

 

[TooFatBoy]

 

[Dudu2]

@TooFatBoy, je voudrais être sûr de ton interprétation...

Autrement dit, les UserForm s'affichent au même endroit, qu'Excel soit sur le primaire ou le secondaire.

Le bouton 2 dit Afficher le UserForm dans le même moniteur qu'Excel
Le bouton 3 dit Afficher le UserForm dans l'autre moniteur qu'Excel

Donc si Excel est en secondaire, normalement:
- le Bouton 2 affichera le UserForm en secondaire.
- le bouton 3 affichera le UserForm en primaire

Ce n'est pas ce qui se passe chez toi ?

 

[TooFatBoy]

Oui, tu as raison, je crois bien que je n'ai pas été très clair...
Et je me demande même si je n'ai pas raconté n'importe quoi !

Bouge pas, je refais les tests avec #78.

 

[TooFatBoy]

Excel primaire :
Bouton 2 : OK
Bouton 3 : OK

Excel secondaire :
Bouton 2 : OK
Bouton 3 : OK


Toutes mes confuses !

 

[Dudu2]

@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:

Public Const PositionMiddle = "Middle"
Public Const PositionTopLeftCorner = "TopLeftCorner"
Public Const PositionTopRightCorner = "TopRightCorner"
Public Const PositionBottomLeftCorner = "BottomLeftCorner"
Public Const PositionBottomRightCorner = "BottomRightCorner"

 

[TooFatBoy]

Merci de m'inclure dans ta réussite, mais je n'ai fait que tester.


Félicitations