Mettre un userform et ses controls sur tout l'écran

Bonjour,

J'ai un userform avec plusieurs contrôle différents (boutton, combobox etc...)

je souhaite que le userform prenne la totalité de l'écran de l'utilisateur et que les contrôles associés s'ajuste automatiquement.

Voici le code utiliser pour le moment

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Initialize() Me.Width = Application.Width Me.Height = Application.Height End Sub

---

mais il faut aussi régler les dimensions des divers contrôles et la je sèche ...

Merci de votre aide

bah tu fait la meme chose que pour Me.

Par exemple si tu as une combobox tu peut faire

Code:

---

1 2 3

Combobox1.Width = Application.Width Combobox1.Height = Application.Height

---

le truc c'est que pr chaque truc tu va devoir adapter par exmple pr la combobox tu fera quelque chose de ce genre

Code:

---

1 2	ComboBox1.Width = Application.Width - 40

---

De même des qu'il s'agit de texte a part augmenter la police si tu augmente juste la zone texte ca ne fera pas de différence.

J'avais penser à ca mais c'est irréalisable au vue du nombre de contrôle ....
Je me dirigeait plus vers une variable qui serait égale à tous les contrôle
du genre :

Code:

---

1 2 3

Dim ctl as control ctl.width = ...... ct.height = ......

---

Une approximation

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub UserForm_Initialize() Dim oldH As Double, oldL As Double, appH As Double, appL As Double Dim echH As Long, echV As Long Dim ctr As Control   oldH = Me.Height: oldL = Me.Width appH = Application.Height - 5: appL = Application.Width - 10 echH = appL / oldL: echV = appH / oldH Me.Height = appH Me.Width = appL For Each ctr In Me.Controls ctr.Left = echH * ctr.Left ctr.Width = echH * ctr.Width ctr.Top = echV * ctr.Top Next ctr End Sub

---

Merci de vous intéressez à mon post.
Le code donné fonctionne partiellement. En effet, la taille d'un commandbutton s'ajuste mais le soucis se pose sur le texte des combobox et sur les optionbutton :cry:

Il y aurait-il une astuce ? on atteint peut être les limites d'un userform à être dynamique

pour la police, cela marche avec la propriété .fontsize (merci papou-net) :ccool:
reste plus qu'à trouver pour les optionbutton

bonjour a tous


si j'ai bien conpris le sujet c'est d'avoir le userform en plein ecran
alors effectivement

le "application.width et left vont te redimensionner le userform
a la taille de l'application a une condition c'est que celle ci soit aussi en plein ecran sinon tu va avoir ton userform a la meme taille que la page excel

il y a plusieur solution

la premiere sans faire apel au apis c'est de metre l'aaplication en plen ecran avant de loader ton userform et de la remetre a l'initial a la fermeture du userform
exemple

Code:

---

1 2 3 4 5

sub mon_userform() application.displayfullscreen=true userform1.show 0 end sub

---

Code:

---

1 2 3 4 5 6

ensuite a la fermeture du userform' donc dans son module   Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) application.displayfullscreen=false End Sub

---

ensuite dautres solutions se font en faisant apel au apis et c'est deja plus complexe

ensuite si tu a un usf a la base qui ne mesure pas les meme dimension que l'ecran forcement tes controls ne vont plus etre placés corectement en tout ca eux ne changeront pas

il te faudra donc la faire apel a une formule dans une boucle qui bouclera sur tout tes controls dailleur l'exemple de mercatog va dans mon sens

mais la encore il va y avoir un probleme c'est que tout tes controls ne sont pas de la meme dimensions parti de la ca va etre dur qu'il ai les meme proportions qu'au depart apres le redimensionnement

je te donne le lien de mon dernier post a se sujet dans les contributions
tu n'a cas copier les deux code dans leur module respectif
et ton userform sera redimentionnable avec la souris comme toute fenetres (windows)
et les controls sont automatiquement et proportionnellement redimentionnés

http://www.developpez.net/forums/d93...rols-userform/

si ca peut servir

au plaisir

ajuste aussi le font

Code:

---

1 2 3 4 5 6 7

For Each ctr In Me.Controls ctr.Left = echH * ctr.Left ctr.Width = echH * ctr.Width ctr.Top = echV * ctr.Top ctr.Height = echV * ctr.Height ctr.Font.Size = echV * ctr.Font.Size Next ctr

---

Bonjour,

Effectivement cela devient plus complexe qu'il n'y parait, et ta solution de proposé de "zoomé" est très intéressante.

Merci pour l'info et lien.

re

l'avantage de ma methode c'est que tu n'a pas besoins de nommer quelque controls que ce soit le module s'en charge tout seul et pour le font ca yest aussi en fet j'ai utilisé le meme procedé que mercatog mais le tout dans un seul module

et comme les controls n'ont pas les meme proportions dans ce meme module
je memorise les proportions de chaques controls par raport au userform des le depart
parti de la dans le resize de l userform j'applique une formule tres simple

nouvelle largeur control =nouvelle largeur userform/( anciennelargeuruserform/ancienne largeur controls) enfin tout est expliqué dans le lien que je t'ai donné

tu ajoute un module standard dans ton fichier et tu copie tout simplement le code destiné a ce module et dans le module du userform tu copie celui qui lui est destiné tu n'a rien d'autre a faire

j'avais fais ce code en vu d'en faire un xla pour tout mes fichiers donc tu n'a pas besoins de le retouché il marchera tres bien avec ton fichier

maintenant il est vrai que la destination de se fichier etait de pouvoir le redimentionner avec la souris et non pas en plein ecran mais que cela te tienne

sachant que la largeur de luserform plein ecran est egale a:

la largeur de ta resolution de ton ecran /1.333333333333333

et pareil pour la hauteur

ilva etre tres simple pour toi de connaitre la dimention de ton userform

si il faut je te fairais un petit exemple tout simple


au plaisir et bon courage

Je vais lire tout cela, pour bien comprendre également la méthode employé et ne pas "copier bêtement".

Encore merci
Au plaisir:ccool:

si tu a besoins de plus d'explications je me fairais un plaisir de t'aider