Ecran de droite ou de gauche ?!

[F22Raptor]

Bonjour à tous,
Au bureau, nous avons des systèmes double-écran.
Je fais tourner un fichier Excel, qui s'affiche sur mon écran de droite, car j'ai Excel à droite.
D'autres collègues utilisent Excel sur l'écran de gauche.

Y a-t-il un moyen VBA de savoir si Excel est ouvert à gauche ou à droite ?

Merci !

 

[F22Raptor]

Re : Ecran de droite ou de gauche ?!

Des idées sur cette question ?

 

[blord]

Re : Ecran de droite ou de gauche ?!

Bonjour,

Si le but est de faire afficher un Userform sur l'écran ou l'instance d'Excel est ouverte, j'utilise ce code à l'initialisation du Userfrom :


Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Top = Application.Top + ((Application.Height) / 2) - (Me.Height / 2)
Me.Left = Application.Left + ((Application.Width) / 2) - (Me.Width / 2)

Ce code centre le userfrom sur l'écran où se trouve Excel....

blord

 

[Roland_M]

Re : Ecran de droite ou de gauche ?!

bonsoir,

on peut tout simplement mettre la propriété de l'userf
Me.StartUpPosition = 2
pour centrer l'userf sur n'importe quel écran

 

[F22Raptor]

Re : Ecran de droite ou de gauche ?!

Simple, mais génial 🙂

Merci Blord !

 

[Roland_M]

Re : Ecran de droite ou de gauche ?!

re

je réitère
le plus simple c'est de mettre la propriété de l'userf Me.StartUpPosition = 2 ou = 1
pour centrer l'userf sur n'importe quel écran

 

[F22Raptor]

Re : Ecran de droite ou de gauche ?!

Hello Laurent, et merci de ta soluce.
En fait, chez moi, le StartUpPosition donne des résultats bizarres !
Par exemple, avec "1", si j'ai Excel sur l'écran de droite, la boîte est collée contre le bord droit de l'écran gauche 😀

Du coup, la soluce Blord convient mieux dans mon cas