Redimensionner USF & Controle Plein taille de l'écran

Roland_M

XLDnaute Barbatruc

• 24 Octobre 2014

• #16

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

re

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

 

Vote positif 0 Vote négatif

S

sarah33

XLDnaute Junior

• 24 Octobre 2014

• #17

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

 

Pièces jointes

• oyo.xlsm

  45.1 KB · Affichages: 36

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 24 Octobre 2014

• #18

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 !

 

Vote positif 0 Vote négatif

S

sarah33

XLDnaute Junior

• 24 Octobre 2014

• #19

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?

Code:

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

Merci

Sarah

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 24 Octobre 2014

• #20

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 !

 

Pièces jointes

• oyo_2.xlsm

  42.5 KB · Affichages: 44
• oyo_2 roland.xlsm

  43.9 KB · Affichages: 38
• oyo_2 roland.xlsm

  43.9 KB · Affichages: 27
• oyo_2 roland.xlsm

  43.9 KB · Affichages: 35

Dernière édition: 25 Octobre 2014

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 24 Octobre 2014

• #21

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

 

Pièces jointes

• oyo (2).xlsm

  29.5 KB · Affichages: 41

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 25 Octobre 2014

• #22

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 !

 

Pièces jointes

• oyo_2 roland.xlsm

  43.9 KB · Affichages: 43
• oyo_2 roland.xlsm

  43.9 KB · Affichages: 32
• oyo_2 roland.xlsm

  43.9 KB · Affichages: 44

Vote positif 0 Vote négatif

S

sarah33

XLDnaute Junior

• 25 Octobre 2014

• #23

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:

Code:

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:

Code:

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

Merci

En tout cas tip top !!!

Sarah

 

Dernière édition: 25 Octobre 2014

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 25 Octobre 2014

• #24

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 !

 

Dernière édition: 25 Octobre 2014

Vote positif 0 Vote négatif