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

Dudu2

XLDnaute Barbatruc

• 22 Juillet 2022

• #76

Ach ! @TooFatBoy, quand tu testes, tu testes !
Rien ne t'échappe

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Juillet 2022

• #77

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 ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Juillet 2022

• #78

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Juillet 2022

• #79

Pareil...

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Juillet 2022

• #80

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Juillet 2022

• #81

​

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Juillet 2022

• #82

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

Cliquez pour agrandir...

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 ?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Juillet 2022

• #83

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.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Juillet 2022

• #84

Excel primaire :
Bouton 2 : OK
Bouton 3 : OK

Excel secondaire :
Bouton 2 : OK
Bouton 3 : OK


Toutes mes confuses !

 

Dernière édition: 22 Juillet 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Juillet 2022

• #85

@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 Const PositionTopRightCorner = "TopRightCorner"
Public Const PositionBottomLeftCorner = "BottomLeftCorner"
Public Const PositionBottomRightCorner = "BottomRightCorner"

 

Pièces jointes

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

  57 KB · Affichages: 13

Dernière édition: 23 Juillet 2022

Vote positif 0 Vote négatif

Solution

TooFatBoy

XLDnaute Barbatruc

• 22 Juillet 2022

• #86

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


Félicitations

 

Vote positif 0 Vote négatif