Discussion :

[patricktoulon]

bonjour skaph
voici une méthode parmi tant d'autre pour mettre ton userform en plein écran

a mettre dans un module standard

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
 
Option Explicit
Dim wste As Long
'plein ecran
Sub UF_Full_Screen(uf As Object)
    With Application
        wste = .WindowState
        .WindowState = xlMaximized
        uf.Width = .Width - 20
        uf.Height = .Height - 20
        uf.Left = 3
        uf.Top = 3
        .WindowState = wste
    End With
    uf.fullscreen = True
End Sub
'le remettre a sa taille initiale
Sub UF_No_Full_Screen(uf As Object, w, H, l, t)
uf.Width = w: uf.Height = H: uf.Left = l: uf.Top = t
uf.fullscreen = False
End Sub
'pour empecher l'utilisateur de le deplacer (sans Api windows)
Sub blokeposition(uf As Object)
      If uf.fullscreen = True Then
        uf.Left = 3
        uf.Top = 3
    End If
End Sub

et dans chacun de tes userforms
en haut de module userform

Code :

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

1
2
3
4
5
Dim w
Dim H
Dim t
Dim l
Public fullscreen As Boolean

dans le activate

Code :

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

1
2
3
4
5
6
'
Private Sub UserForm_Activate()
w = Me.Width: H = Me.Height: t = Me.Top: l = Me.Left
'pour le mettre a l'ouverture en plein ecran
UF_Full_Screen Me
End Sub

et j'ai ajouté l'impossibilité de le deplacer quand il est agrandi
et l'exemple de 2 bouton ajouté dans l'userform plein ecran ou pas
le bouton "CommandButton2" remet le userform tel qu'il est parametré dan VBE

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
'
'
Private Sub CommandButton1_Click()
UF_Full_Screen Me
End Sub
'
'
Private Sub CommandButton2_Click()
UF_No_Full_Screen Me, w, H, l, t
End Sub
'
'
Private Sub UserForm_Layout()
blokeposition Me
End Sub

[Skaph]

Merci beaucoup !

[patricktoulon]

oulah je me suis un peu emballé

ca ne fonctionne pas si les userform sont modals

donc on revoit la copie

code 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
Public W As Long
Public H As Long
Public T As Long
Public L As Long
Public fullscreen As Boolean
Public AppWidth As Long
Public AppHeight As Long
'
Private Sub UserForm_Activate()
W = Me.Width: H = Me.Height: T = Me.Top: L = Me.Left
'pour le mettre a l'ouverture en plein ecran
UF_Full_Screen Me
End Sub
'
'
Private Sub CommandButton1_Click()
UF_Full_Screen Me
End Sub
'
'
Private Sub CommandButton2_Click()
UF_No_Full_Screen Me, W, H, L, T
End Sub
 
Private Sub UserForm_Initialize()
get_dimention_full_screen Me
End Sub
'
'
Private Sub UserForm_Layout()
blokeposition Me
End Sub

code module

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
 
Option Explicit
Public wste As Long
'plein ecran
Sub UF_Full_Screen(uf As Object)
        uf.Width = uf.AppWidth - 20
        uf.Height = uf.AppHeight - 20
        uf.Left = 3
        uf.Top = 3
        uf.fullscreen = True
End Sub
'le remettre a sa taille initiale
Sub UF_No_Full_Screen(uf As Object, W, H, L, T)
    With uf
        .Width = .W: .Height = .H: .Left = .L: .Top = .T
        .fullscreen = False
    End With
End Sub
'pour empecher l'utilisateur de le deplacer (sans Api windows)
Sub blokeposition(uf As Object)
    If uf.fullscreen = True Then
        uf.Left = 3
        uf.Top = 3
    End If
End Sub
Sub get_dimention_full_screen(uf)
With Application
        wste = .WindowState
        .WindowState = xlMaximized
        If uf.AppWidth = 0 Then uf.AppWidth = .Width
        If uf.AppHeight = 0 Then uf.AppHeight = .Height
     .WindowState = wste
    End With
 
End Sub