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.
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
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
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é