maximiser un formulaire

Spitnolan08

XLDnaute Barbatruc

• 12 Juillet 2007

• #2

Re : maximiser un formulaire

Bonjour,

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

Cordialement

 

Dernière édition: 12 Juillet 2007

Vote positif 0 Vote négatif

N

nada

XLDnaute Nouveau

• 12 Juillet 2007

• #3

Re : maximiser un formulaire

Salut

dans workbook :

Private Sub Workbook_open()

UserForm1.Show

End Sub


......oups telescopage 🙂

 

Dernière édition: 12 Juillet 2007

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 12 Juillet 2007

• #4

Re : maximiser un formulaire

Bonsoir Kuhn, Spitnolan

a mettre dans l'initialisation de l'USF :

Code:

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

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

Code:

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

bonne soirée
@+

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 12 Juillet 2007

• #5

Re : maximiser un formulaire

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

 

Dernière édition: 12 Juillet 2007

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 12 Juillet 2007

• #6

Re : maximiser un formulaire

Re,
Dans Le code de l'UF :

Code:

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 :

Code:

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

 

Vote positif 0 Vote négatif

K

kuhn

XLDnaute Nouveau

• 12 Juillet 2007

• #7

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 12 Juillet 2007

• #8

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

 

Vote positif 0 Vote négatif