Position top de controls par un Module

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Juillet 2010

• #2

Re : Position top de controls par un Module

Bonjour néné,

peut-être avec ceci:

Private Sub Workbook_Open()
UserForm1.BTNQUIT.Top = Application.Height * 0.9
UserForm1.Show
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Juillet 2010

• #3

Re : Position top de controls par un Module

Bonsoir phlaurent55

Je souhaite placer le .TOP=Application height * .9 dans le module
pour que le boutton "quitter" se place à cette hauteur dans les 16 USF de mon programme
je pense que l'instruction se trouvera dans le module qui me centre déja les titres de mes USF.

Merci de t'étre penché sur mon probléme

A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Juillet 2010

• #4

Re : Position top de controls par un Module

j'ai essayé
Private Sub Workbook_Open()
UserForm1.BTNQUIT.Top = Application.Height * 0.9
UserForm1.Show
End Sub
Cela ne fonctionne pas?

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 22 Juillet 2010

• #5

Re : Position top de controls par un Module

Public Sub centre_controles(USF)
With USF
Dim ctl As MSForms.Control
For Each ctl In USF
ctl.Font.Size = Application.Height * 0.03
ctl.Left = (Application.Width - ctl.Width) / 2

If ctl.Name = "BTNQUIT" Then ctl.Top = Application.Height * 0.9
Next

End With
End Sub


Vas-tu vraiment créer plusieurs userform semblable ??

 

Dernière édition: 22 Juillet 2010

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Juillet 2010

• #6

Re : Position top de controls par un Module

Bonsoir Habitude
Le code ctl.Name fonctionne impec

J'ai beaucoup de USF sur lesquels je place des routine semblable pour le reglage identique de certain controles et je termine mes menu en ajoutant les autres controles differents.

Merci pour l'aide apportée.

A+

 

Vote positif 0 Vote négatif