Position dynamique des controles dans un UserForm

[Parazite]

Bonjour,

J'aurais besoin d'un petit coup de pouce...

Je travaille sur un UserForm contenant:
- 3 boutons: Réduire l'USF, Mettre l'USF en plein ecran, Fermer l'USF
- 1 spreadsheet owc 11

Il est possible de redimensionner mon UserForm grâce à la double flêche qui apparait lorsque l'on place la souris dans l'un des coin de l'USF.

Je souhaiterais que les 3 boutons restent "collés" dans le coin superieur droit de l'USF même une fois que celui-ci a été redimensionné.
Et, si c'est possible, que le spreadsheet soit lui aussi redimensionné de manière à toujours remplir l'USF... (comme lors de l'affichage initial)

Quelqu'un aurait-il une idée sur la manière de coder ça? (Je débute et j'avoue ne pas voir comment procéder... et je n'ai pas trouvé d'exemple approprié sur le net...)

Merci d'avance pour votre aide 😉

PS: Je vous joins mon fichier

 

[Mytå]

Re : Position dynamique des controles dans un UserForm

Salut le forum

Parazite, un début de solution

Private Sub PleinEcran_Click()
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
        .Spreadsheet1.Width = .Width - 6
        .Reduire.Left = .Width - 40
        .PleinEcran.Left = .Reduire.Left - 24
        .Quitter.Left = .Reduire.Left - 48
    End With
End Sub

Mytå

 

[Parazite]

Re : Position dynamique des controles dans un UserForm

Bonsoir Myta et merci beaucoup !

C'est exactement le coup de pouce que j'attendais ^^

j'ai juste ajouté la ligne suivante pour que le spreadsheet soit aussi étiré en hauteur:

.Spreadsheet1.Height = .Height - 6

Seul "problème" c'est que je n'ai plus la scrollbar du bas... mais bon je pense que ça ne sera pas très ennuyeux pour mon application.

Encore merci 😉

 

[Parazite]

Re : Position dynamique des controles dans un UserForm

Je n'ai rien dit ^^

avec:

.Spreadsheet1.Height = .Height - 70

on voit la scrollbar du bas