Userform avec labels dont la police reste fixe !

[alias_2003]

Bonjour,
J’ai lu tous les posts relatifs au redimensionnement des userforms. Les codes fournis sont très bien, mais je me rends compte que ma demande est différente… Mon userform devrait être affiché en grand (bouton agrandir et non pas en plein écran) et surtout s’adapter à tous les écrans, pc de ma boite… Le zoom ne correspond pas à ma demande...
J’aimerais que la police de mes labels reste fixe (tahoma 8) (bien sûr sauf pour les labels des listboxes) et que ce soit la largeur des textboxes qui changent…
Pas très sûr d’être clair…
Qu’en pensez-vous ??
Merci beaucoup,
Amicalement

 

[phlaurent55]

Re : Userform avec labels dont la police reste fixe !

Bonjour alias,

… Mon userform devrait être affiché en grand (mais pas en plein écran) et surtout s’adapter à tous les écrans, pc de ma boite… Le zoom ne correspond pas à ma demande...

pour dimensionner l'USF en fonction de l'écran utilisé

Sub ouvrir()
Userform1.Width = Application.Width - 100
Userform1.Height = Application.Height - 100
Userform1.Show 0
End Sub

ou pour un zoom à 80%

Sub ouvrir()
Userform1.Width = Application.Width *0.8
Userform1.Height = Application.Height *0.8
Userform1.Show 0
End Sub

à+
Philippe

 

[alias_2003]

Re : Userform avec labels dont la police reste fixe !

Bonjour Philippe,
Merci beaucoup de ta réponse ! Le zoom n'est pas satisfaisant pour mon besoin...
En poursuivant mes recherches, j'ai trouvé ce fichier (je ne sais plus où, le code n'est en aucun cas de moi !), je me demande s'il serait applicable à mon fichier... Qu'en pensez-vous ?
Merci beaucoup !

 

[alias_2003]

Re : Userform avec labels dont la police reste fixe !

Je pense que le plus simple serait d'avoir différentes "versions" de mon userform adaptées aux différentes résolutions et d'ouvrir le bon, selon la résolution du pc. Pensez-vous que ce soit possible ?
Merci beaucoup !