OVH Cloud OVH Cloud

affichage userform

2 réponses
Avatar
ced
bonjour,=20

J'ai un probl=E8me.

J'ai fait=20

1 / un userform pour ex=E9cuter un programme
2 / le userform doit se mettre =E0 la taille de l'=E9cran avec
=20
Sub auto_open()
UserForm1.Show
End Sub

3/ ca marche parfois, mais souvant, sur d'autre PC,
le userform d=E9passe l'=E9cran et je ne peut plus rien faire

Y A T il qq un pour m'aider a r=E9soudre ca?.

merci

ced

2 réponses

Avatar
Misange
Bonjour,
userform.show te permet d'afficher ton userform mais nullement de le
mettre à la taille de l'écran !
Si tu veux faire ça, va chercher sur excelabo, (il y a un ou plusieurs
d'ailleurs) classeurs de démo de Michel Pierron qui permettent de faire ça.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

le 09/07/2004 12:06:
bonjour,

J'ai un problème.

J'ai fait

1 / un userform pour exécuter un programme
2 / le userform doit se mettre à la taille de l'écran avec

Sub auto_open()
UserForm1.Show
End Sub

3/ ca marche parfois, mais souvant, sur d'autre PC,
le userform dépasse l'écran et je ne peut plus rien faire

Y A T il qq un pour m'aider a résoudre ca?.

merci

ced




Avatar
Michel Pierron
Bonjour Ced;
Private Sub UserForm_Initialize()
With Me
.Left = 0: .Width = Application.Width - 6
.Top = 0: .Height = Application.Height - 6
End With
End Sub

MP

"ced" a écrit dans le message de
news:2992701c4659c$790ee7a0$
bonjour,

J'ai un problème.

J'ai fait

1 / un userform pour exécuter un programme
2 / le userform doit se mettre à la taille de l'écran avec

Sub auto_open()
UserForm1.Show
End Sub

3/ ca marche parfois, mais souvant, sur d'autre PC,
le userform dépasse l'écran et je ne peut plus rien faire

Y A T il qq un pour m'aider a résoudre ca?.

merci

ced