Discussion :

[stephadm]

Bonjour,

J 'utilise 2 écrans en mode extension et je souhaite afficher un userform aligner sur la partie gauche (ecran droite) du classeur 2cm en dessous de la barre de formule. Actuellement l'userform s'affiche sur l'écran de gauche et le fichier excel se trouve sur celui de droite.

Comment fait-on pour verrouiller l'userform à gauche du fichier si ce dernier se trouve sur écran de gauche ou écran de droite ?

Où est-ce qu'il faut inscrire le code vba ?

En vous remerciant

Stéphanie

[Daniel.C]

Bonjour,

Je ne dispose pas de deux écrans, aussi je ne peux pas t'aider pour leur gestion. D'un autre côté, VBA ne les gère pas non plus, à ma connaissance. Tu peux trouver comment placer le userform sur l'écran ici :

http://silkyroad.developpez.com/VBA/UserForm/#LIII-D

[patricktoulon]

bonjour

il y a une solution tres simple

ton écran principal a une dimension en largeur bien précise que tu peut déterminer avec l'api getsystemmetric

dans les contributions tu a une de mes vielles contributions dans la quelle tu a quelques exemple


ensuite si ton écran mesure par exemple "1024" et que ton userform mesure 300 et bien c'est tout simple tu fais l'addition
et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
userform1.show 0
userform1.left=1304+15  '1304 ou la variable obtenu avec getsystemmetric

tu va te retrouver avec le userform dans l'autre écran a gauche

un truc bien important cela dit c'est de bien déterminé le quel ecran est a gauche et le quel est a droite
tu peut regler ce problème dans le clic droit sur l'écran et -->résolution
avec la souris tu place les écran a ton gré

[stephadm]

Bonsoir,

Merci à Patricktoulon et Daniel.C pour vos réponses, je vais essayer.

Stéphanie

[Didier Gonard]

bonjour,

ton écran principal a une dimension en largeur bien précise que tu peut déterminer avec l'api getsystemmetric

en faisant un clic droit sur ton écran pour cliquer sur résolution, tu peux t'en tirer aussi

Sinon, en partant de la base :

Dans le fenêtre propriété de ton Userform, tu en as une qui se nomme : StartUpPosition, elle peut prendre 4 valeurs qui sont explicitées dans l'aide VBA, en la mettant sur 0-Manual et en réglant les propriétés Top et Left, tu dois obtenir ce que tu veux

cordialement,

Didiier

[patricktoulon]

bonsoir

allez une macro toute simple générique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Declare Function GetSystemMetrics% Lib "user32" (ByVal nIndex%)
 
Sub userform_sur_l_autre_ecran()
 
'ici on determine la resolution en pixel de ton ecran principal quelqu'il soit
largeur = GetSystemMetrics%(0) ' te donne la largeur
hauteur = GetSystemMetrics%(1) ' te donne la hauteur
 
'on affiche le userform
userform1.Show 0
 
'si dans la resolution ton ecran secondaire est a droite de l'autre
'on le replace instantanément en haut a gauche de l'ecran 2
userform1.Left = largeur + 15
userform1.Top = 10
 
'si dans la resolution ton ecran secondaire est a gauche de l'autre
'on le replace instantanément en haut a droite de l'ecran 2
 
userform1.Left = -(15+userform1.width)
userform1.Top = 10
 
'ainsi meme si tu te sert de ton fichier sur plusieurs ecran
'tu n 'a pas besoins de modifier ta macro
 
End Sub

voili voilou

au plaisir