XL 2016 affichage userform avec 2 ou + ecrans

roby · 12 Octobre 2022

Bonjour le forum,

Lorsqu'on lance un fichier Excel sur un poste avec plusieurs écrans, à chaque fois les userform s'affichent sur un autre écran que l'écran ou est affiché excel.
y a-t-il une parade pour que cet userform s'affiche dans la même fenêtre que excel ?

je joint le même fichier solutionné dernièrement pour le test.

Merci encore.

Compte Supprimé 979 · 12 Octobre 2022

Bonjour Roby,

Voici ce que j'utilises dans l'Userform

VB:

Private Sub UserForm_Initialize()
  ' Centrer l'USF
  With Me
    .StartUpPosition = 0   ' Edit oublié car au tout début de ma procédure
    .Left = (Application.Left + Application.Width) - ((Application.Width + .Width) / 2)
    .Top = (Application.Top + Application.Height) - ((Application.Height + .Height) / 2)
  End With
End Sub

A+

Lolote83 · 13 Octobre 2022

Bonjour à tous
Perso je rajoute la commande StartUpPosition=0, mais est-elle utile ? Après plusieurs essais sur les 4 choix proposés, je pense que OUI, sinon rien ne change par rapport à ce qu'à écrit @BrunoM45 .

Les 4 choix proposés sont :
- StartUpPosition = 0 (Manual)
- StartUpPosition = 1 (CenterOwner)
- StartUpPosition = 2 (CenterScreen)
- StartUpPosition = 3 (Windows Default)

VB:

Private Sub UserForm_Initialize()
    '-------------------------------------------------------- Positionnement UserForm
    Me.StartUpPosition = 0                                                  'Déclarer position MANUAL
    Me.Left = Application.Left + Application.Width / 2 - Me.Width / 2
    Me.Top = Application.Top + Application.Height / 2 - Me.Height / 2
End Sub

@+ Lolote83

Dudu2 · 13 Octobre 2022

Bonjour à tous,
@Lolote83, c'est sûr, le StartUpPosition = 0 est indispensable si on veut contrôler le positionnement.

Lolote83 · 13 Octobre 2022

Bonjour @Dudu2 ,

@Lolote83, c'est sûr, le StartUpPosition = 0 est indispensable si on veut contrôler le positionnement.

Je m'en doutais un peu c'est pourquoi je me suis permis de compléter le code fourni par @BrunoM45 que j'utilise moi aussi. Je pensais vraiement que cela avait son importance.
Bonne journée à toi
@+ Lolote83

Dudu2 · 13 Octobre 2022

Si la solution de @BrunoM45 ne donnait pas satisfaction au demandeur, j'ai un classeur avec pas mal de fonctions qui permettent de positionner un UserForm dans le même ou l'autre écran que celui d'Excel, récupérer les RECT des écrans, des zones de travail (hors barres des tâches), des barres des tâches, etc...
J'ai dû m'y coltiner pour un utilisateur et comme c'est plus complexe je ne le proposerai que si nécessaire.

TooFatBoy · 13 Octobre 2022

Bonjour,

Dudu2 à dit:
j'ai un classeur avec pas mal de fonctions qui permettent de positionner un UserForm dans le même ou l'autre écran que celui d'Excel, récupérer les RECT des écrans, des zones de travail (hors barres des tâches), des barres des tâches, etc.

Et ça marche super bien !

Lolote83 · 13 Octobre 2022

Re bonjour à tous,
J'avais par ailleurs répondu à ta demande @Dudu2 dans ce post
https://excel-downloads.com/threads...m-pc-a-2-ecrans.20062299/page-3#post-20524811
Je serais intéréssé par ce "fameux" classeur mais c'est peut être un de ceux joints dans la discution mentionnée ci-dessus ?
@+ Lolote83

Dudu2 · 13 Octobre 2022

Et ça marche super bien !

Et bé tant mieux !

@Lolote83, justement je suis en train de le revoir pour rendre les fonctions de positionnement plus simples.
D'ailleurs j'en ferai sûrement une ressource. Ça peut intéresser des personnes. Je te le place ici dès que j'ai terminé mes amélriorations et commentaires.

Lolote83 · 13 Octobre 2022

Re bonjour,
Merci @Dudu2 pour ce futur partage.
Bien que je ne comprenne pas toujours tes demandes qui sont trop complexes pour moi, je parcours assez régulièrement tes demandes car elles sont souvent sources d'inspirations.
@+ Lolote83

Dudu2 · 13 Octobre 2022

La question que je me pose c'est comment indiquer le positionnement du UserForm relatif à l'écran demandé (celui d'Excel ou l'autre) sachant que par Left et Top c'est pas évident puisque les Left et Top de référence ne sont pas forcément à 0 si c'est le Moniteur secondaire.

Je vais tenter un positionnement soit milieu (par défaut) soit par ratios de décalage (horizontal et vertical) par rapport à l'écran demandé. Mais pour un positionnement précis, peut-être faut-il aussi pouvoir indiquer les Left et Top.

Lolote83 · 13 Octobre 2022

Re,
perso, j'ai deux écrans
Ecran de gauche : Coordonnées (x,y)
- Haut Gauche = 0,0
- Bas Gauche = 0,1079
- Haut Droite = 1019,0
- Bas Droite = 1019,1079

Ecran de droite
- Haut Gauche = 1920,0
- Bas Gauche = 1920,1079
- Haut Droite = 3839,0
- Bas Droite = 3839,1079

Avec ces informations, peut être peut-on décaler les UserForms avec Left et Top
@+ Lolote83

TooFatBoy · 13 Octobre 2022

Lolote83 à dit:
Avec ces informations

J'ai un doute en voyant tes données : comment les deux écrans peuvent-ils avoir des coordonnées positives ???

L'écran primaire est-il à gauche ?
Ça expliquerait ces valeurs positives pour les deux écrans, je pense.

[edit]C'est même évident, donc la question ne se pose même pas. [/edit]

Dudu2 · 13 Octobre 2022

J'ai fait un extract juste pour trouver les dimensions des moniteurs.

Lolote83 · 13 Octobre 2022

Bonjour @TooFatBoy ,

J'ai un doute en voyant tes données

Qu'attendais tu comme valeurs alors ?
Les données fournies au post#12 sont celles de mes deux écrans quand je positionne la sourie
- En haut à gauche de l'écran de gauche (0,0) en haut à gauche de l'écran de droite (1920,0) etc etc etc

XL 2016 affichage userform avec 2 ou + ecrans

roby

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

Lolote83

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

Lolote83

XLDnaute Barbatruc

Discussions similaires