Redimensionner une frame

[maval]

Bonjour,

Est-il possible de Redimensionner une frame sur un userform?

Je vous remercie d'avance

 

[Papou-net]

Re : Redimensionner une frame

Bonjour Max,

Une solution parmi d'autres.

Bon dimanche.

Cordialement.

 

[maval]

Re : Redimensionner une frame

Bonjour Papou

Je te remercie beaucoup, il est possible en lui donnant une dimension fixe ex:H.700 L 450

Private Sub CommandButton1_Click()
'lg = InputBox("Largeur de la forme")
'ht = InputBox("Hauteur de la forme")
'Me.Frame1.Width = lg: Me.Frame1.Height = ht

   Frame1.Left = 5
   Frame1.Top = 10

Me.Frame1.Width = 500
Me.Frame1.Height = 700
End Sub

Merci et bon dimanche

 

[JCGL]

Re : Redimensionner une frame

Bonjour à tous,

En adaptant le code de Papou.Net...

Private Sub CommandButton1_Click()
Me.Frame1.Width = 450: Me.Frame1.Height = 700
End Sub

A+ à tous

 

[maval]

Re : Redimensionner une frame

Bonjour JC

Je te remercie et te souhaite un bon dimanche

 

[Papou-net]

Re : Redimensionner une frame

Bonjour Papou

Je te remercie beaucoup, il est possible en lui donnant une dimension fixe ex:H.700 L 450

Private Sub CommandButton1_Click()
'lg = InputBox("Largeur de la forme")
'ht = InputBox("Hauteur de la forme")
'Me.Frame1.Width = lg: Me.Frame1.Height = ht

   Frame1.Left = 5
   Frame1.Top = 10

Me.Frame1.Width = 500
Me.Frame1.Height = 700
End Sub

Merci et bon dimanche

RE:

Évidemment qu'il est possible de définir les dimensions "en dur" dans le code;

Mais dans ce cas, il est plus simple de les régler une fois pour toutes dans la fenêtre Propriétés de Frame1, non?

A +

Cordialement.

PS: Bonjour et bon dimanche à toi JCGL