Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
J'ai trouvé des solutions sur le forum et j'en ai fait un condensé. Le code suivant met le Userform en plein écran et fait un zoom pour augmenter la taille des controles qu'il contient...
Private Sub UserForm_Activate()
Dim W As Double
With UserForm1
.StartUpPosition = 3
W = Application.UsableWidth / 768
Me.Zoom = CInt(W * 95)
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
....
Les chiffres 768 et 95 sont à adapter suivant les résultats attendus et la taille de l'écran....
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.