Affichar Userform en plein

[ARNAUD ZIRIPE]

Bonjour à tous.
Je viens à vous car je recherche une macro pouvant me permettre d'afficher un Userform en plein écran et de l'adapter à tout type d'écran.
Merci de bien vouloir m'aider.

 

[Staple1600]

Re : Affichar Userform en plein

Bonsoir à tous

ARNAUD ZIRIPE
Qu'ont donné tes recherches préalables (conseillées par la charte du forum) en cliquant sur la loupe ?

Demandeur
1 – Un outil de recherche sur le forum permet de voir si la question a déjà été posée.
Ne pas hésiter à l’utiliser. Lien vers le moteur de recherche

 

[mikyross]

Re : Affichar Userform en plein

bonjour
moi j utilise c'est ligne de commande que j'insert dans le code de mon userform

Private Sub UserForm_Initialize()
With Me
.Width = Application.UsableWidth
.Height = Application.UsableHeight
End With
End Sub

 

[Modeste geedee]

Re : Affichar Userform en plein

Bonsour®

voir du coté de la propriété Zoom du userform

nb: les dimensions du userform ne peuvent être proportionnelles à celles de tout les écrans (16/9, 800x600, 1366x768)
la valeur du Zoom est à calculer en fonction de une seule des dimensions : largeur ou hauteur

 

[INFINITY100]

Re : Affichar Userform en plein

bonsoir

Ceci fera l'affaire si j'ai bien compris cela fera adapter les dimensions d'un UserForm à la taille de toute les formes d'écran

Private Sub UserForm_Activate()
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub

les deux Application.Width et Height et 0 peuvent être remplacées par des valeurs bien précises si tu veux un affichage personnalisé

 

[Modeste geedee]

Re : Affichar Userform en plein

Bonsour®

bonsoir

Ceci fera l'affaire si j'ai bien compris cela fera adapter les dimensions d'un UserForm à la taille de toute les formes d'écran

sauf a entrer dans un usine à gaz la dimensions des objets reste invariante...

par le zoom les objets sont redimensionnés proportionnellement
voir également ma remarque précédente ...

 

[p56]

...