Discussion :

[paul6023]

Bonjour à tous.
J'ai créer un fichier pour saisir les résultats des matchs de box et il y a un formulaire form1 pour afficher les résultats au public en cliquant sur un boutton. Mais j'un problème:
Je peux pas créer la macro permétant d'afficher le formulaire sur la deuxième écran et pas sur la première où je fais la saisie

[joe.levrai]

Bonjour,

le formulaire se positionne automatiquement sur l'écran qui héberge la fenêtre du VBE. On peut paramétrer sa position de départ sur ledit écran, mais pas le placer sur un autre écran

A mon avis, sans API, je ne pense pas que cela soit possible. Ce n'est pas mon domaine d'expertise

[paul6023]

Merci pour votre réponse

[EricDgn]

Bonjour,

La position d'un UserForm peut être fixée par exemple de cette façon:

Code :

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

1
2
3
4
Private Sub UserForm_Activate()
    Me.Top = 100
    Me.Left = 1100
End Sub

.Left = 0 et .Top = 0 correspond au coin supérieur gauche de l'écran principal.
.Left sera négatif si l'écran secondaire est à gauche de l'écran principal.

Bonne continuation.

[EricDgn]

et une version améliorée, avec fonction "maximiser" et "réduire" le formulaire, inspiré de ce post: VBA - Minimize/maximize a UserForm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'--- dans un module:
Option Explicit
 
'--- https://ccm.net/faq/27876-vba-minimize-maximize-a-userform
 
Public Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function GetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&)
Public Declare Function SetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
 
' Déclaration des constantes
Public Const GWL_STYLE As Long = -16
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_FULLSIZING = &H70000
 
'Attention, envoyer après changement du caption de l'UF
Public Sub InitMaxMin(mCaption As String, _
                      Optional Max As Boolean = True, _
                      Optional Min As Boolean = True, _
                      Optional Sizing As Boolean = True)
    Dim hWnd As Long
    hWnd = FindWindowA(vbNullString, mCaption)
    If Min Then SetWindowLongA hWnd, GWL_STYLE, GetWindowLongA(hWnd, GWL_STYLE) Or WS_MINIMIZEBOX
    If Max Then SetWindowLongA hWnd, GWL_STYLE, GetWindowLongA(hWnd, GWL_STYLE) Or WS_MAXIMIZEBOX
    If Sizing Then SetWindowLongA hWnd, GWL_STYLE, GetWindowLongA(hWnd, GWL_STYLE) Or WS_FULLSIZING
End Sub
 
Sub Voir()
    UserForm1.Show
End Sub
 
'--- dans le code du formulaire UserForm
Private Sub UserForm_Initialize()
    InitMaxMin Me.Caption
End Sub

Bonne continuation.

[paul6023]

et une version améliorée, avec fonction "maximiser" et "réduire" le formulaire, inspiré de ce post: VBA - Minimize/maximize a UserForm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'--- dans un module:
Option Explicit
 
'--- https://ccm.net/faq/27876-vba-minimize-maximize-a-userform
 
Public Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function GetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&)
Public Declare Function SetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
 
' Déclaration des constantes
Public Const GWL_STYLE As Long = -16
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_FULLSIZING = &H70000
 
'Attention, envoyer après changement du caption de l'UF
Public Sub InitMaxMin(mCaption As String, _
                      Optional Max As Boolean = True, _
                      Optional Min As Boolean = True, _
                      Optional Sizing As Boolean = True)
    Dim hWnd As Long
    hWnd = FindWindowA(vbNullString, mCaption)
    If Min Then SetWindowLongA hWnd, GWL_STYLE, GetWindowLongA(hWnd, GWL_STYLE) Or WS_MINIMIZEBOX
    If Max Then SetWindowLongA hWnd, GWL_STYLE, GetWindowLongA(hWnd, GWL_STYLE) Or WS_MAXIMIZEBOX
    If Sizing Then SetWindowLongA hWnd, GWL_STYLE, GetWindowLongA(hWnd, GWL_STYLE) Or WS_FULLSIZING
End Sub
 
Sub Voir()
    UserForm1.Show
End Sub
 
'--- dans le code du formulaire UserForm
Private Sub UserForm_Initialize()
    InitMaxMin Me.Caption
End Sub

Bonne continuation.