Régler la taille du fomulaire UserForm

gdcobra91

XLDnaute Junior
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.
 

Pièces jointes

  • UserForm.xls
    34.5 KB · Affichages: 43
  • UserForm.xls
    34.5 KB · Affichages: 38
  • UserForm.xls
    34.5 KB · Affichages: 39

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Régler la taille du fomulaire UserForm

Voir PJ


Code:
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
 

Pièces jointes

  • UserForm(1).xls
    41 KB · Affichages: 67
  • UserForm(1).xls
    41 KB · Affichages: 59
  • UserForm(1).xls
    41 KB · Affichages: 64

Discussions similaires

  • Résolu(e)
Microsoft 365 Taille UserForm
Réponses
3
Affichages
328

Statistiques des forums

Discussions
312 113
Messages
2 085 422
Membres
102 886
dernier inscrit
eurlece