Discussion :

[seb13]

Bonjour,

mon problème est le suivant. A l'ouverture d'un fichier Excel, je souhaite afficher un formulaire en plein écran. Après quelques essais infructueux, je me tourne vers vous.

Actuellement mon code est le suivant mais le formulaire "dépasse" de l'écran.

Code :

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

1
2
3
4
5
6
7
8
9
 
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)
If zFactor > 400 Then zFactor = 400
Me.Width = Application.Width
Me.Height = Application.Height
Me.Zoom = zFactor

Merci d'avance pour votre aide.

[fring]

Bonjour,

Simplement ceci ne suffit pas ?

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
Me.Height = Application.Height
Me.Width = Application.Width
End Sub

[seb13]

Merci, en fait ceci est bien mais je voudrais que mes boutons soient centrés à l'intérieur du formulaire. Je vais essayer de faire ça, j'ai une petite idée.

[fring]

J'ai ajouté une ligne au cas où la fenêtre excel ne serait pas étendue

Pour le centrage des boutons, une solution serait de tout mettre sur une Frame et ensuite

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
Me.Height = Application.Height
Me.Width = Application.Width
Frame1.Left = (Application.Width / 2) - (Frame1.Width / 2)
Frame1.Top = (Application.Height / 2) - (Frame1.Height / 2)
End Sub

[seb13]

Merci de ton aide, mon problème est résolu. J'avais eu la même idée pour centrer les boutons.