redimensionner un USF

[Akeya06]

Bonsoir à toutes et tous,

Est il possible de redimensionner la taille d' un USF lorsque je clic sur une Listbox ou un bouton quelconque ?

D'avance merci...
Akeya06

 

[myDearFriend!]

Bonsoir Akeya06,


Un Userform1 et un bouton CommandButton1 :

Private Sub CommandButton1_Click()
    UserForm1.Width = LargeurSouhaitée
    UserForm1.Height = HauteurSouhaitée
End Sub

Que tu peux remplacer par :

Private Sub CommandButton1_Click()
    UserForm1.Move , , LargeurSouhaitée, HauteurSouhaitée
End Sub

Et si le CommandButton1 appartient au Userform1, tu peux remplacer 'Userform1' par 'Me' dans les morceaux de code ci-dessus.


Cordialement

 

[Akeya06]

Re le forum,

Et voilà, en refaisant un petit tour dans le pack1 de @+Thierry, sur quoi je tombe ? Eh ben oui, la réponse à ma question. Donc merci quand même.

Akeya06