FOUQUET Yves
XLDnaute Occasionnel
Bonjour,
Quelqu'un peut-il me dire si ces lignes de code me permettront d'adapter sur n'importe quel ordinateur la taille de l'Userform à la résolution de l'écran et la taille de Listbox à la taille de l'Userform ?
Je teste chez moi ça a l'air OK mais sur un écran avec d'autres résolution ???
Merci de vos réponses.
Bonne soirée.
Quelqu'un peut-il me dire si ces lignes de code me permettront d'adapter sur n'importe quel ordinateur la taille de l'Userform à la résolution de l'écran et la taille de Listbox à la taille de l'Userform ?
Je teste chez moi ça a l'air OK mais sur un écran avec d'autres résolution ???
Merci de vos réponses.
Bonne soirée.
VB:
LargeurEcran = GetSystemMetrics(0)
HauteurEcran = GetSystemMetrics(1)
HauteurUserf = HauteurEcran * 0.75
LargeurUserf = LargeurEcran * 0.75
Me.Move 1, 1, LargeurUserf, HauteurUserf 'pour tout modifier
ListBox1.Width = LargeurEcran * 0.74
ListBox1.Height = HauteurEcran * 0.62