User à droite de l'écran en fonction de la résolution

  • Initiateur de la discussion Initiateur de la discussion ericTA
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ericTA

XLDnaute Occasionnel
Bonjour à tous,

je cherche à positionner une USER à droite de ma fenétre quelque soit la résolution de mon écran.
j'ai une USER avec
width = 200
StartUpPosition = Manual

Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Sub auto_open()
Dim iResX As Integer
Dim iResY As Integer

iResX = GetSystemMetrics(0) ' donne la résolution de l'écran en X
iResY = GetSystemMetrics(1) ' donne la résolution de l'écran en Y
USER.Left = iResX - 200
USER.Show 0
AppActivate "Microsoft Excel"
End Sub

Mais cela ne marche pas, je ne vois pas l'USER, pour le voir, il faut que je change ma valeur de 200 par 520
J'ai une piste, la taille est exprimé en point (with : en point. Un point correspond à 1/72 pouce)
Y a-t-il un moyen de faire correspondre la résolution en pixel avec with en pouce
Ou un moyen plus simple.
Cordialement.

PS : avec la pièce jointe

Eric
 

Pièces jointes

Dernière édition:
Re : User à droite de l'écran en fonction de la résolution

Bonjour Eric, et à ceux qui passeront par là,

Sans doute ai-je mal compris la question,
car ma solution semble bien simple!!

Code:
Private Sub CommandButton1_Click()
With UserForm1
.Top = 150
.Left = Application.Width - (.Width + 10)
.Show
End With
End Sub
Si nécessaire mettre préalablement:
Code:
Application.WindowState = xlMaximized

Amicalement,

Yann
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
Réponses
1
Affichages
1 K
jacquesderyes
J
Retour