maximiser un formulaire

[kuhn]

bonjour,

j'ai fait une macro afin d'afficher mon formulaire à l'ouverture du fichier

Sub Auto_Open()
Application.WindowState = xlMinimized
Load UserForm1
UserForm1.Show
End Sub

Malheureusement mon formulaire ne se maximise pas mais il clignote dans la barre des taches. Il faut que je clique dessus pour faire apparaitre le formulaire.
Que manque-t-il dans mon code pour que ça marche ?

Merci

Nico

 

[Spitnolan08]

Re : maximiser un formulaire

Bonjour,

Edit : voir Pierrot...
Edit : ne plus voir Pierrot...

Cordialement

 

[nada]

Re : maximiser un formulaire

Salut

dans workbook :

Private Sub Workbook_open()

UserForm1.Show

End Sub


......oups telescopage 🙂

 

[Pierrot93]

Re : maximiser un formulaire

Bonsoir Kuhn, Spitnolan

a mettre dans l'initialisation de l'USF :

Private Sub UserForm_Initialize()
Application.WindowState = xlMinimized
End Sub

en utilisant l'événement "Open" de "ThisWorkbook"

Private Sub Workbook_Open()
Load UserForm1
UserForm1.Show
End Sub

bonne soirée
@+

Edition ce pour "minimiser" Excel et laisser visible l'USF.

 

[Pierrot93]

Re : maximiser un formulaire

Re aarf ma solution n'est pas bonne... Désolé, ne fonctionne que si l'éditeur vba est ouvert...

 

[Spitnolan08]

Re : maximiser un formulaire

Re,
Dans Le code de l'UF :

Private Sub UserForm_Initialize()
Dim largeur, hauteur As Variant
largeur = Application.Height
hauteur = Application.Width

UserForm1.Height = largeur
UserForm1.Width = hauteur

UserForm1.Show
End Sub

ou Dans This Workbook :

Private Sub Workbook_Activate()
Dim largeur, hauteur As Variant
largeur = Application.Height
hauteur = Application.Width

UserForm1.Height = largeur
UserForm1.Width = hauteur

UserForm1.Show
End Sub

Cordialement

 

[kuhn]

Re : maximiser un formulaire

Je suis novice :

Si je comprends bien lorsque tu marques "Dans Le code de l'UF", c'est le code que je dois mettre dans mon UserForm, mais où dois-je le mettre ? Je fais clique droit sur le form, je clique sur "code" et je le place la où je jeux ?
En ce qui concerne "Dans This Workbook" , je créer une macro qui s'appelle Workbook_Activate et je rentre le code ?

Est-ce cela ?

Merci

Nicolas

 

[Spitnolan08]

Re : maximiser un formulaire

Re,

Si tu as un UF (UserForm) à charger, c'est que tu en as construit un... Donc que tu lui a associé un code...
Par conséquent tu ouvres VBE (Visual Basic Editor) et tu ouvres la feuille de code de ton UF. Là tu recopies le 1er code que je t'ai donné...

Le second peut être placé dans la feuille de code ThisWorbook que tu trouveras également en ouvrant VBE. Mais il n'est pas nécessaire d'inscrire les deux. Le premier suffit...

Cordialement