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