Discussion :

[Didpa]

Bonjour

Voilà, j'aimerais savoir, si il est possible qu'un userform, s'adapte a la taille de l'écran ?
Car je travaille avec un écran de 19", et quand j'ouvre sur un autre ordi qui as un écran de 15", je ne vois que les 3/4 de mon userform.Au moment de sont ouverture il doit prendre tout l'écran, voilà ce que j'ai mis comme code, si quelqu'un a une solution ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
 
    Dim hWnd As Long, exLong As Long, zFactor As Integer
    hWnd = FindWindowA(vbNullString, Me.Caption)
    exLong = GetWindowLongA(hWnd, -16)
    If exLong And &H880000 Then SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
    zFactor = 100 * CInt(Application.Width / Me.Width)
    Me.Width = Application.Width
    Me.Height = Application.Height
 
End Sub

Merci d'avance

Didier

[pgz]

Bonjour.

En FAQ : Comment adapter les dimensions d'un UserForm à la taille de l'écran ?

PGZ

[Didpa]

Ok merci cela fonctionne, mai j'aimerais que la barre bleu ainsi que la croix n'apparraisse pas, comme cela était avec la formule d'avant.

merci

[pgz]

Re.

En FAQ VBA : Comment inhiber ou masquer le bouton 'Fermer' d'une UserForm ?
Comment supprimer la barre de titre d'une UserForm ?


PGZ