Problème de taille de User form
n
Bonjour,
J'ai un tableur qui est utilisé par de nombreuses personnes qui ne sont pas tous équipés du meme matériel : certain utilisents des écrans de portable 13 pouces, d'autre des 19 pouces sur poste fixe.
Le user form a été dimensionné sur un 19 pouce et ne s'affiche pas en totalité. Dans les propriétés du user form, je n'ai rien qui ressemble à autosize
Y a t il une astuce autre que de réduire toutes les zones pour quelles rentrent dans une dimension 13 pouces ?
D'avance merci
Invité
Bonjour Nico_33
Tu peux essayer ce code
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Sub UserForm_Initialize()
Dim ratio As Double
ratio = Me.Width / Application.Width
Me.Zoom = ratio * 100
DoEvents
Me.Move 0, 0, GetSystemMetrics(0) / 1.33, GetSystemMetrics(1) / 1.33
End SubA+