XL 2016 VBA - Problème positionnement UserForm

patricktoulon

XLDnaute Barbatruc

• 4 Janvier 2026

• #2

bonjour @Dudu2 bonne année
tiens!!? le king of multi ecran est en rade j'en reste pentoi
peut être avec du code on pourrait voir ce qui ne va pas
la comme ca sans boule de cristal ca va être dur

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 5 Janvier 2026

• #3

Bonjour Dudu2, Patrick, le forum

@Dudu2 Peut être une question bête mais as tu mis sa propriété startup position à 0-manual ?

Bonne année et bonne journée !

Bernard

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Janvier 2026

• #4

Bonjour,
C'est dans un gros code pas possible à mettre ici. Et oui StartupPosition et Points, tout est bon.
Je lui dit 10 et Excel comprend 20. Je vais continuer à investiguer.

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 5 Janvier 2026

• #5

problème de résolutions différentes sur multi écrans ?
windows 11 m'a déjà fait des bizarreries de position d'userform avec un écran fullhd couplé à un whqd en affichage étendu

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 5 Janvier 2026

• #6

Bonjour,

Dudu2 à dit:

J'essaie de positionner un UserForm sur un Moniteur, en Left = 1044.
Que je le fasse en .Left = ou en .Move il ne tient pas compte de la position que je lui donne et le place en 2054+.

Cliquez pour agrandir...

Si tu essaies d'autres valeurs de Left, est-ce que le décalage entre la valeur demandée et la valeur réellement utilisée reste constante ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Janvier 2026

• #7

problème de résolutions différentes sur multi écrans ?

Cliquez pour agrandir...

C'est pas à exclure.

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Barbatruc

• 5 Janvier 2026

• #8

bonjour,

Code:

Private Sub UserForm_Initialize()

    Me.StartUpPosition = 0

    ' --- Position souhaitée en PIXELS ---
    Dim leftPx As Long
    Dim topPx As Long

    leftPx = 1044
    topPx = 100

    ' --- Conversion pixels → points (VBA travaille en points) ---
    Me.Left = leftPx * 72 / 96
    Me.Top = topPx * 72 / 96

End Sub

Écran Résolution Position
------------------------------------
Écran 1 1920 x 1080 Left = 0
Écran 2 2560 x 1440 Left = 1920

 

Dernière édition: 5 Janvier 2026

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 5 Janvier 2026

• #9

Dudu2 à dit:

C'est pas à exclure.

Cliquez pour agrandir...

Perso, je n'y crois pas car deux écrans de références différentes ont forcément des résolutions différentes.

Il vaut mieux chercher du côté de l'utilisation d'éventuels zooms, ou du placement des écrans l'un par rapport à l'autre.
Mais tu es ici LE grand spécialiste du multi-écran donc tu as déjà dû vérifier tout ça.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 5 Janvier 2026

• #10

Dudu2 à dit:

Rien à faire, j'ai épuisé mes forces, je ne sais plus quoi faire. Quelqu'un a-t-il déjà eu ce problème ?

Cliquez pour agrandir...

Je te retournerai un peu la question : ton code crée-t-il le même problème chez quelqu'un d'autre ?

 

Dernière édition: 5 Janvier 2026

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Janvier 2026

• #11

Merci à vous tous qui vous êtes penchés sur cette question.

Je te retournerai un peu la question : ton code crée-t-il me même problème chez quelqu'un d'autre ?

Cliquez pour agrandir...

Oui !
Je crois avoir trouvé l'explication (à confirmer par un code encore à corriger).
Pour certaines raisons (je pourrais expliquer si demande), j'ai fait, dans ce cas précis (ce n'est pas une généralité), un SetParent du UserForm à l'ActiveWindow.

Conséquences:

1. Lors d'un set du .Left, il faut le faire strictement par rapport à la Window (de 0 à .Width) même si le Left de la Window sur un moniteur #2 n'est pas 0 mais 1440 par exemple. Si on utilise le vrai .Left par rapport au moniteur, il va l'ajouter à ce qu'on a demandé au setting.
2. Par contre, même si on a setté 0 en .Left, le .Left final pour Excel incluera le décalage du moniteur et sera 1440 par exemple.
3. Si on doit setter le .Left et le .Top, il faut le faire en 1 fois avec un .Move sinon en 2 fois (.Left = puis .Top =), ça va foirer à cause du fait qu'à la 2ème fois (sur le .Top =) il va reprendre le .Left (qui n'est plus à 0 mais en 1440 par exemple). Je comprends enfin l'utilité du .Move !

Donc dans ma fonction de positionnement, il faut que je teste si le Parent du UserForm est l'ActiveWindow et setter soit par rapport à 0 soit par rapport au Left réel (tenant compte du Moniteur) de la Window. Et que je transforme les settings de position de .Left = , .Top = etc... en .Move.

Edit: je mets mon Post en tant que solution, ce n'est pas par vanité ou autre, c'est parce que le code ainsi adapté fonctionne.

 

Dernière édition: 5 Janvier 2026

Vote positif 0 Vote négatif

Solution

patricktoulon

XLDnaute Barbatruc

• 5 Janvier 2026

• #12

re

Donc dans ma fonction de positionnement, il faut que je teste si le Parent du UserForm est l'ActiveWindow et setter soit par rapport à 0 soit par rapport au Left réel (tenant compte du Moniteur) de la Window.

Cliquez pour agrandir...

a bien oui bien évidemment si le userform devient child de l'application(activewindow depuis 2013) il est évident que le positionnement va et doit se faire par celle-ci.
et les écrans quel qu’il soit , n'ont alors plus rien a voir
d'autre part le userform doit rester dans le rectangle de l'application sans cela il sera totalement ou partiellement masqué
plus simplement dit: le point 0 c'est le left de l'application

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Janvier 2026

• #13

En effet, hors de la fenêtre parente, le UserForm ne peut apparaître. L'intérêt c'est que la minimisation reste dans la fenêtre.
Le truc c'est que d'une part j'avais totalement oublié que ma fonction d'affichage que j'utilise à toutes les sauces depuis des lustres, faisait un SetParent dans certains cas et d'autre part qu'il fallait définir par rapport à 0 mais qu'au final c'était quand même en absolu.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Janvier 2026

• #14

plutot que t'ennuyer a restructurer l'arborescence des fenêtres
un bouton dans le ruban dans ton applicatif pour juste faire un hide et un show
le show se ferait point 0/0 +calcul si userform child /application
ou .application.left et top si non child
terminé
en VBA les choses les plus simples dans ce domaine sont les plus pérrennes

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Janvier 2026

• #15

Certes, mais minimisé, le UserForm reste visible. Alors on peut bricoler des couleurs ou marqueurs de Hide et Show mais ça devient aussi compliqué.

 

Vote positif 0 Vote négatif