forcer emplacement userform

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

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

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:

---

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é

Bonsoir,

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

Stéphanie

bonjour,

Citation:

---

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 :D

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

bonsoir

allez une macro toute simple générique

Code:

---

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

Citation:

---

Envoyé par patricktoulon

bonsoir

allez une macro toute simple générique

Code:

---

Declare Function

---

---

:koi:

.

quoi?quoi:mouarf:

l'a tu essayé au moins :mouarf:parceque moi oui!:lol:

j'ai 2 écrans connectés a ma carte graphique et je le gère tout simplement comme ça moi :mrgreen:
au plaisir

rebonsoir ormonth

tiens c'est ici dans la derniere reponse

Bonsoir Patrick,

as-tu lu mon message, je ne parles pas du fait d'aller chercher les Api, je signalais que tu parlais de macros et tu mettais en place une fonction :calim2:

.

bonjour ormonth

ouis hohhhhh... on joue sur les mots ca reste une macro diminutif de macrocommande

si tu prefere je met "sub" a la place de "function":roll:

au plaisir

Ben non, je ne joue pas sur les mots, ce sont les différences qu'on aborde en formation, va faire une fonction avec l' "enregistreur de macro" ;)

cordialement,

Didier