Microsoft 365 Format UserForm

[Diane272727]

Bonjour,
Comment agrandir la taille de mon userform ? Je souhaiterai par exemple qu'il prenne 80% de mon écran. Est ce que c'est possible ?
Merci beaucoup

 

[Gégé-45550]

Bonjour,
Comment agrandir la taille de mon userform ? Je souhaiterai par exemple qu'il prenne 80% de mon écran. Est ce que c'est possible ?
Merci beaucoup

Bonjour,
Dans l'éditeur VBA, vous cliquez sur les bords du UserForm et, à l'aide des poignées, vous le redimensionnez comme bon vous semble, ou bien vous passez par les propriétés du USF.
Cordialement,

 

[Oneida]

Bonjour Gégé-45550
Ca flotte?

Diane272727
Ce fichier sera utilise sur un seul d'ecran ou des ecrans avec des resolutions differentes ou/et tailles differentes

 

[Gégé-45550]

Bonjour Gégé-45550
Ca flotte?

???

 

[Oneida]

???

Crocodile Dundee: "Ca flotte lolote"

 

[Diane272727]

Merci pour vos retours.
C'est ce que je fait avec la souris, mais je suis limité en "Height : 491 et en Width : 932, et donc ça ne fait pas assez grand.
N'y a t il pas une option pour que le formulaire soit sur l'écran entier sinon ?
Oneida : Ce fichier sera sur un seul écran

 

[Gégé-45550]

Merci pour vos retours.
C'est ce que je fait avec la souris, mais je suis limité en "Height : 491 et en Width : 932, et donc ça ne fait pas assez grand.
N'y a t il pas une option pour que le formulaire soit sur l'écran entier sinon ?
Oneida : Ce fichier sera sur un seul écran

Bonsoir,
rien ne vous empêche de saisir au clavier de plus grandes valeurs pour Height et Width.
Cordialement,

 

[Gégé-45550]

Merci pour vos retours.
C'est ce que je fait avec la souris, mais je suis limité en "Height : 491 et en Width : 932, et donc ça ne fait pas assez grand.
N'y a t il pas une option pour que le formulaire soit sur l'écran entier sinon ?
Oneida : Ce fichier sera sur un seul écran

Sinon, dans le code du formulaire (exemple pour ajuster le formulaire à la taille de l'écran - rien n'empêche de modifier à 80% par exemple, il suffit d'adapter le code)

Sub AdapterTailleFormAEcran()
'par Excel-Malin.com ( https://excel-malin.com )

Application.WindowState = xlMaximized

If ActiveWindow.Width > Me.Width And ActiveWindow.Height > Me.Height Then Exit Sub

    If (Round((ActiveWindow.Width * 0.95) / Me.Width, 2) * 100) - 1 < (Round((ActiveWindow.Height * 0.95) / Me.Height, 2) * 100) - 1 Then
        Me.Zoom = (Round((ActiveWindow.Width * 0.95) / Me.Width, 2) * 100) - 1
        Me.Width = Me.Width * Me.Zoom / 100
        Me.Height = Me.Height * Me.Zoom / 100
    Else
        Me.Zoom = (Round((ActiveWindow.Height * 0.95) / Me.Height, 2) * 100) - 1
        Me.Width = Me.Width * Me.Zoom / 100
        Me.Height = Me.Height * Me.Zoom / 100
    End If

End Sub

 

[job75]

Bonsoir à tous,

Pour modifier la taille d'un UserForm c'est élémentaire :

Private Sub CommandButton1_Click() 'Agrandir
With Me
    .Width = .Width * 1.25
    .Height = .Height * 1.25
End With
End Sub

Private Sub CommandButton2_Click() 'Réduire
With Me
    .Width = .Width / 1.25
    .Height = .Height / 1.25
End With
End Sub

A+

 

[Oneida]

Bonjour a tous

Fichier avec UF Plein ecran et mise a l'echelle des objets dans l'UF
Dans cette evenement vous trouverez aussi les lignes encommentaire pour avoir un % de l'ecran

Private Sub UserForm_Initialize()

 

[Diane272727]

Merci à tous.
Votre m'a été précieuse.
J'ai utilisé du coup le bouton pour agrandir et rétrécir qui est très pratique.