Régler la taille du fomulaire UserForm

[gdcobra91]

Bonjour,

1/ Je voudrais savoir comment peut-on augmenter/diminuer la taille de la forme UserForm1 lorsque l'on double-clique sur une cellule texte?

2/ Est-il possible, une fois la forme UserForm1 affichée, d'agrandir ou de réduire la forme en tirant avec la souris sur les bords de la forme?

Ci-joint, un fichier exemple.

Merci par avance.

 

[BOISGONTIER]

Re : Régler la taille du fomulaire UserForm

Voir PJ

Private Sub TextBox1_Change()
   ActiveCell = Replace(Me.TextBox1, Chr(13), "")
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If UserForm1.Zoom = 100 Then
    UserForm1.Zoom = 200
    UserForm1.Width = Me.Width * 2
    UserForm1.Height = Me.Height * 2
  Else
    UserForm1.Zoom = 100
    UserForm1.Width = Me.Width / 2
    UserForm1.Height = Me.Height / 2
  End If

  Cancel = True
End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Me.Zoom = 100 Then
    Me.Zoom = 200
    Me.Width = Me.Width * 2
    Me.Height = Me.Height * 2
  Else
    Me.Zoom = 100
    Me.Width = Me.Width / 2
    Me.Height = Me.Height / 2
  End If
End Sub

JB

 

[gdcobra91]

Re : Régler la taille du fomulaire UserForm

Bonjour,

Puis-je avoir une explication?

Merci.