Microsoft 365 Format UserForm

Diane272727 · 8 Juin 2023

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

job75 · 8 Juin 2023

Bonsoir à tous,

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

VB:

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+

Gégé-45550 · 8 Juin 2023

Diane272727 à dit:
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 · 8 Juin 2023

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 · 8 Juin 2023

Oneida à dit:
Bonjour Gégé-45550
Ca flotte?

???

Oneida · 8 Juin 2023

Gégé-45550 à dit:
???

Crocodile Dundee: "Ca flotte lolote"

Diane272727 · 8 Juin 2023

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 · 8 Juin 2023

Diane272727 à dit:
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 · 8 Juin 2023

Diane272727 à dit:
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)

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 · 8 Juin 2023

Bonsoir à tous,

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

VB:

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 · 9 Juin 2023

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

VB:

Private Sub UserForm_Initialize()

Diane272727 · 9 Juin 2023

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.

Microsoft 365 Format UserForm

Diane272727

XLDnaute Junior

job75

Gégé-45550

XLDnaute Accro

Oneida

XLDnaute Impliqué

Gégé-45550

XLDnaute Accro

Oneida

XLDnaute Impliqué

Diane272727

XLDnaute Junior

Gégé-45550

XLDnaute Accro

Gégé-45550

XLDnaute Accro

job75

XLDnaute Barbatruc

Pièces jointes

Oneida

XLDnaute Impliqué

Pièces jointes

Diane272727

XLDnaute Junior

Discussions similaires