Position top de controls par un Module

[néné06]

Bonsoir le Forum

Dans mon module, les titres et commandbouttons sont placés au milieu de l’écran.
Est-il possible de placer le boutton « QUITTER » par le module ,en position
BTNQUIT.TOP=Application height * .9


Merci d’avance

 

[phlaurent55]

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

 

[néné06]

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+

 

[néné06]

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?

 

[Habitude]

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 ??

 

[néné06]

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+