Redimensionner USF & Controle Plein taille de l'écran

[sarah33]

Bonjour le fofo !!!

J'utilise un USF avec des contoles (jusque là, rien d'incroyable).
A l'heure actuel mon USF ne prend pas tout mon ecran.. mais qu'une partie.
Cependant, les proportions entre le USF et ses Controls me convient très bien.
J'aimerai que ces proportions restent les mêmes, mais que le USF s'affiche automatiquement en plein écran... en fonction de l'écran utilisé: et donc que la taille des polices et controls s'agrandisse ou diminue avec le USF (kit à utiliser des scrollbar si l'écran est trop petit)

J'ai trouvé pas mal de truc sympa en archive, mais soit l'écran ne s'affiche pas automatiquement en plein écran, il faut le faire manuellement, soit les controls ne suivent pas...

Pourriez-vous m'aider?

Merciii à vous les ptits loups !

Sarah

 

[Roland_M]

Re : Redimensionner USF & Controle Plein taille de l'écran

re

as-tu vu que j'avais modifié ! 79 et 80 !?

 

[sarah33]

Re : Redimensionner USF & Controle Plein taille de l'écran

Je viens de faire la modif merci.

Cependant, j'ai de temps à autre un prob d'affichage avec le Listbox1...
En effet, parfois lors de l'ouverture du fichier le USF n'est pas redimensionné comme le reste (il conserve sa taille d'origine)
En allant dans le Visual Basic et en modifiant manuellement la taille du cadre du Listbox, alors le redimensionnement automatique refonctionne...

Je pense que la version en pièce jointe montre le bug..
si tu as une idée?

Merci

sarah

 

[Roland_M]

Re : Redimensionner USF & Controle Plein taille de l'écran

re

et bien je comprends pas ce que tu as modifié entre temps
car celui que je t'ai modifié en dernier fonctionne très bien !

 

[sarah33]

Re : Redimensionner USF & Controle Plein taille de l'écran

humm, bah je sais pas trop, pas grand chose pourtant.
Je vais repartir de ton fichier et voir.

Pour redimensionner automatiquement ma listBox2, je positionne ListBox2.ColumnWidths = s de cette façon?

ListBox1.ColumnWidths = s
ListBox2.ColumnWidths = s
Go = True

Merci

Sarah

 

[Roland_M]

Re : Redimensionner USF & Controle Plein taille de l'écran

re


voir l'userform dans l' Activate pour resize

voir ci-joint

EDIT:
voir aussi (en mieux avec la taille de police)
avec la méthode Letitia90 que je trouve excellente !
et avec le formatage des colonnes !

 

[laetitia90]

Re : Redimensionner USF & Controle Plein taille de l'écran

re toutes & tous
une autre version pas savoir si marche avec excel 2010 ou 2013 ???? pas pouvoir tester 2007 ok

 

[Roland_M]

Re : Redimensionner USF & Controle Plein taille de l'écran

re

ci-joint ton classeur avec la méthode Letitia90 que je trouve excellente !
avec le formatage des colonnes !

 

[sarah33]

Re : Redimensionner USF & Controle Plein taille de l'écran

Laetitia90, Roland_M, le fofo, Bonjour !!

Réponse tardive, hier soir je suis partie me coucher car la grippe a eu raison de moi


Merci à vous deux pour votre aide !!!
Je pense donc partir sur la version mixte: Laetitia&Roland (le dernier fichier) qui m'à l'air de marcher nikel.

juste un petite précision:

Select Case TypeName(Ctrl)
    Case "CommandButton", "Label", "TextBox", "ListBox", "CheckBox": Ctrl.Font.Size = Me.Width / Split(Ctrl.Tag, ":")(4) * 0.85 'limite!

si jamais je souhaite ajouter un autre type de control, je dois le rajouter à cette liste?

et pour ajuster également le listbox2 c'est bien ça:

ListBox1.ColumnWidths = s
ListBox2.ColumnWidths = s
Go = True

Merci

En tout cas tip top !!!

Sarah

 

[Roland_M]

Re : Redimensionner USF & Controle Plein taille de l'écran

Bonjour,

pour ici oui ! ici il suffit de rajouter des mots
mais tu devrais mettre avec lcase et tout en minuscules, c'est plus sûr !(j'ai oublié!)
et voir si tu n'as pas d'autres Control avec Font.Size !?

Select Case Lcase(TypeName(Ctrl))
Case "commandbutton", "label", "textbox", "listbox", "checkbox": Ctrl.Font.Size = Me.Width / Split(Ctrl.Tag, ":")(4) * 0.85 'limite!

ne pas oublié de le faire aux deux !


pour ceci:
ListBox1.ColumnWidths = s
ListBox2.ColumnWidths = s

si c'est le même format pas de soucis !
d'ailleurs je crois l'avoir essayé !?

EDIT:

ici > Me.Width / Split(Ctrl.Tag, ":")(4) * 0.85 'limite!
le 0.85 c'est pour la taille des caractères qui était un peu grosse !
tu peux faire des essais exemple * 0.5 ou 0.6 ou rien du tout pour toi voir la taille non réduite !?


encore une chose, j'ai remplacé: Userform_Resize()
par: Userform_Activate()





à plus !