Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

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
 
P

Pascal@74

Guest
Bonjour Gerard, le forum,

Merci Gérard pour le code, peu m'importe si cela est brouillon ou pas, l'important est que cela fonctionne !

Bonne journée a toi.

P. B)
 

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


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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…