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

Dudu2 · 18 Juillet 2022

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 · 22 Juillet 2022

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

TooFatBoy · 19 Juillet 2022

Bonjour,

Bouton 1 : LxH des moniteurs n'affiche pas les bonnes valeurs, ça affiche 1440x810 au lieu de 1920x1080.
Le reste est bon.

Bouton 2 : parfait.

Bouton 3 : ne marche pas : le Userform s'affiche sur le même moniteur qu'Excel.

Dudu2 · 19 Juillet 2022

Bonjour @TooFatBoy,
Merci pour ton retour.

Les dimensions sont en points donc en principe 1440 x 810 points c'est 2400 x 1350 pixels.
Tu as cette dimension 1440 x 810 sous quelle titre ?

Chez moi:

TooFatBoy · 19 Juillet 2022

Dudu2 à dit:
Les dimensions sont en points donc en principe 1440 x 810 points c'est 2400 x 1350 pixels.

Ah oui, pardon, ce sont des "points" et non des pixels.
Pour info, j'ai deux moniteurs de 1920x1080 (pixels, évidemment

)

Dudu2 à dit:
Tu as cette dimension 1440 x 810 sous quelle titre ?

Comme je l'ai dit, c'est pour "LxH" des moniteurs.
Mais pour être plus précis, c'est pour chacune des deux lignes, donc chacun des deux moniteurs.

Oups, il y a un truc que je n'avais pas vu au départ : quand Excel est sur l'écran primaire ça affiche "vrai"

mais quand il est sur l'écran secondaire ça n'affiche rien (ni "vrai" ni "faux").

Dudu2 · 19 Juillet 2022

mais quand il est sur l'écran secondaire ça n'affiche rien (ni "vrai" ni "faux").

C'est ma fonction qui est buguée. Je n'ai pas mis sa valeur de retour comme Booléenne. Pas grave, j'ai corrigé. En l'occurrence rien ça veux dire faux.

Dudu2 · 19 Juillet 2022

Pour info, j'ai deux moniteurs de 1920x1080 (pixels, évidemment )

Alors c'est étrange que ça retourne 1440 x 810 points par moniteur car c'est 2400 x 1350 pixels.
Y a un truc étrange. Car moi aussi j'ai un 1920 x 1080 pixels et j'ai bien 1152 x 648 points.
Tu es sûr de tes paramètres d'affichage (sur le bureau, clic droit, paramètres d'affichage) ?

TooFatBoy · 19 Juillet 2022

Dudu2 à dit:
Tu es sûr de tes paramètres d'affichage (sur le bureau, clic droit, paramètres d'affichage) ?

Oui, t'inquiète, ça je connais.
Je suis bien en 1920x1080, zoom à 100 %, sur chacun des deux moniteurs de 22 pouces.

Dudu2 · 19 Juillet 2022

Oui, t'inquiète, ça je connais.

Oui, bien sûr ! Alors je comprends pas du tout pourquoi tes chiffres sont aussi élevés à 1440 x 810.
Version corrigée du fichier. Tu peux refaire un screenshot des valeurs STP ?

TooFatBoy · 19 Juillet 2022

Voilà

Dudu2 · 19 Juillet 2022

Merci ! Ok, compris. Le nombre de pixels par point de 1,33333 n'est pas du tout celui que je croyais standard de 1,666666. Donc c'est bon !
Maintenant je vais essayer de comprendre pourquoi ça:

Bouton 3 : ne marche pas : le Userform s'affiche sur le même moniteur qu'Excel.

Je dois rater quelque chose...

Dudu2 · 19 Juillet 2022

Retour sur l'affaire...
Mon fichier était archi-faux puisque la bonne macro n'était pas affectée au 3ème bouton.
Ça risquait pas de fonctionner.
@TooFatBoy, peux-tu ré-essayer STP ?

TooFatBoy · 19 Juillet 2022

Je vais tester ça tant que je suis au boulot car chez moi j'ai un seul moniteur.
Donc les tests, c'est maximum jusqu'à demain 08h00. Après c'est mort pour plusieurs mois, voire pour toujours.

TooFatBoy · 19 Juillet 2022

Impeccable. Le Userform s'affiche bien sur l'autre moniteur dans les deux cas.

TooFatBoy · 19 Juillet 2022

C'est marrant, quand la fenêtre d'Excel est à cheval sur les deux écrans : le Userform s'affiche sur le moniteur qui comporte la plus grande partie de ladite fenêtre.

En revanche, ici, il faut que la fenêtre d'Excel soit 100 % sur le moniteur secondaire (à droite du primaire) pour voir "Vrai", sinon on voit "Faux" pour la dernière ligne.

Dudu2 · 19 Juillet 2022

En revanche, ici, il faut que la fenêtre d'Excel soit 100 % sur le moniteur secondaire (à droite du primaire) pour voir "Vrai", sinon on voit "Faux" pour la dernière ligne

Oui, parce que j'ai testé le .Left de la fenêtre Excel. C'est lui qui détermine (pour ce code) si elle est en primaire ou secondaire.

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

Dudu2

XLDnaute Barbatruc

Pièces jointes

Dudu2

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Discussions similaires