1 pièce(s) jointe(s)
Problème initialisation Userform
Bonjour,
Lorsque j'ouvre mon fichier Excel, je voudrais avoir l'userform qui s'affiche sur tout l'écran et que le tableau Excel se minimise.
Cela fonctionne dans l'ensemble sauf que mon UF s'ouvre en tout petit...:
Pièce jointe 286195
Mon code dans this Workbook:
Code:
1
2
3
4
5
6
7
8
9
10
| Private Sub Workbook_Open()
Application.ScreenUpdating = True
Application.WindowState = xlMinimized
affichage
'UFsaisie.Show 0
Application.ScreenUpdating = False
End Sub |
dans un module:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| UFsaisie.Show 'affiche la fenêtre créée
Dim Rx As Single
Dim Ry As Single
'Userform
With UFsaisie
Rx = Application.Width / .Width
Ry = Application.Height / .Height
.StartUpPosition = 1
.Left = 0
.Top = 0
.Height = Application.Height
.Width = Application.Width
End With |
merci
PS: j'ai trouvé: il faut enlever: Application.WindowState = xlMinimized... sans commentaires :)
