Afficher mon user form des l'ouverture

  • Initiateur de la discussion Pascal@74
  • Date de début
P

Pascal@74

Guest
Bonjour le Forum

Comment afficher en plein écran mon user form dés que l'utilisateur ouvre le classeur ?

Merci beaucoups et bonne journée

Pascal :eek:
 

Gérard DEZAMIS

XLDnaute Accro
Bonjour Pascal@74

Private Sub Workbook_Open()
UserForm1.Width = Application.Width
UserForm1.Height = Application.Height
UserForm1.Left = 0
UserForm1.Top = 0
UserForm1.Show

End Sub

C'est un code un peu brouillon (il doit y avoir une solution plus simple, surtout dans les raccourcis d'écriture mais ...)

A placer avec Alt+F11 dans Thisworkbook

@+ GD
 

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour Pascal@74, bonjour Gérard

Simplement pour que Gérard dorme mieux ce soir ;).
Il est vrai que lorsque l'on est amené à définir de nombreuses propriétés d'un même contrôle, l'on peut eviter la répétition dudit contrôle. Je crois que Thierry appelle cela le mode Run Time
Code:
Private Sub Workbook_Open()
With UserForm1
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
.Show
 End With
End Sub
Bonne soirée ;)

Private Sub Workbook_Open()
<span style='color: #0000FF'><font size='4'>With</font></span> UserForm1
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
.Show
<span style='color: #0000FF'><font size='4'>End With</font></span>
End Sub

Qu'est ce que tous ces codes barbares ?????????? J'ai remis le code sans fioriture.

Message édité par: Eric C, à: 25/04/2005 19:48
 

Gérard DEZAMIS

XLDnaute Accro
Youpi j'ai gagné 2 heures !

Le soleil, la plage, le ciel bleu ....
Je rêve encore. En fait, aujourd'hui, la bataille excellienne va encore être rude !

Un grand Merci Eric ton code épuré, afiné, ne fait que ravir mes neurones. c'est super propre et efficace.
C'est parfait quoi !
Une fois de plus je vais dire que les Forts Hommeurs d'ici sont des cracks.

Merci encore pour la leçon VBAttrayante.

@+ GD
 

Statistiques des forums

Discussions
312 149
Messages
2 085 772
Membres
102 970
dernier inscrit
JMaurice