[Resolu par Papou-net] Normal ou reduit Userform

[Bearn 64]

Bonjour le Forum,

Une information est-il possible de réduire un userform a la taille d'un bouton. et de l'agrandir avec le même bouton.

Le bouton doit être de quelle nature command ou toggle ?????


Merci a tous de votre aide.

 

[Papou-net]

Re : Normal ou reduit Userform

Bonjour Bearn 64,

Un bouton de commande simple peut faire l'affaire.

Voir sur fichier exemple en PJ.

Il te reste à adapter les dimensions des contrôles dans le code.

Cordialement.

 

[Bearn 64]

Re : Normal ou reduit Userform

Bonsoir Papou-net, le Forum.

Oups!! trop rapide.

Merci pour ce fichier qui tout simplement nickel.


Je vais l'adapter

Cordialement Bearn 64.

 

[Bearn 64]

Re : Normal ou reduit Userform

Bonjour Papou-net, le Forum.

je voudrais avoir le userform pleins écran.

Dim i As Byte, CBg As Integer, CBh As Integer, Lib
Dim UFl As Integer, UFh As Integer

Private Sub CommandButton1_Click()

Select Case i
  Case 0 'Réduire
    i = 1
    CommandButton1.Left = 2
    CommandButton1.Top = 2
    CommandButton1.Caption = Lib(1)
    Me.Width = 4 + CommandButton1.Width
    Me.Height = 28 + CommandButton1.Height
  Case 1 'Agrandir
    i = 0
    CommandButton1.Left = CBg
    CommandButton1.Top = CBh
    CommandButton1.Caption = Lib(0)
    Me.Width = UFl
    Me.Height = UFh

End Select


End Sub

Private Sub CommandButton9_Click()

UsfCommande.Show 0

End Sub

Private Sub UserForm_Initialize()
Lib = Array("Réduire", "Agrandir")
i = 0
UFl = Me.Width: UFh = Me.Height
CBg = CommandButton1.Left: CBh = CommandButton1.Top
CommandButton1.Caption = Lib(i)


With Me
.StartUpPosition = 1
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With


End Sub

A l'ouverture OK pleins écran.
Réduire et Agrandir le userform ne revient pas en pleins écran.

Merci de votre aide.

Bearn 64

 

[Papou-net]

Re : [Resolu par Papou-net] Normal ou reduit Userform

Bonjour Bearn 64,

Il faut définir le mode plein écran dans l'initialisation du formulaire.

Private Sub UserForm_Initialize()
Lib = Array("Réduire", "Agrandir")
i = 0
With Me
  .Width = Application.Width - 10:  .Height = Application.Height - 10
  UFl = .Width: UFh = .Height
  CommandButton1.Left = .Width - CommandButton1.Width - 10
  CommandButton1.Top = .Height - CommandButton1.Height - 25
End With
CBg = CommandButton1.Left: CBh = CommandButton1.Top
CommandButton1.Caption = Lib(i)
End Sub

Bon dimanche dans le beau Béarn que j'apprécie.

Cordialement.

 

[Bearn 64]

Re : [Resolu par Papou-net] Normal ou reduit Userform

Bonjour Papou-net, le Forum.

Un grand merci pour cette réponse si rapide et mise en oeuvre aussitôt.

Efficace même le Dimanche.

Encore merci.

Bearn 64