Affichar Userform en plein

ARNAUD ZIRIPE · 24 Avril 2015

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 · 24 Avril 2015

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 · 25 Avril 2015

Re : Affichar Userform en plein

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

mikyross à dit:
Private Sub UserForm_Initialize()
With Me
.Width = Application.UsableWidth
.Height = Application.UsableHeight
End With
End Sub

Modeste geedee · 25 Avril 2015

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 · 25 Avril 2015

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

Code:

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 · 25 Avril 2015

Re : Affichar Userform en plein

Bonsour®

INFINITY100 à dit:
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 · 25 Avril 2015

Affichar Userform en plein

ARNAUD ZIRIPE

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

mikyross

Guest

Modeste geedee

XLDnaute Barbatruc

INFINITY100

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

p56

XLDnaute Occasionnel

Discussions similaires

Affichar Userform en plein

ARNAUD ZIRIPE

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

mikyross

Guest

Modeste geedee

XLDnaute Barbatruc

INFINITY100

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

p56

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency