OVH Cloud OVH Cloud

plein écran

2 réponses
Avatar
Jean-Pierre
Bonjour,

Je souhaite afficher mon UserForm plein écran et suivant les excellents
conseils de Excelabo j'ai écrit,

Private Sub UserForm_Activate()
With UserForm1
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
End With
End Sub

Mais, malgré StartUpPosition en 3 le haut du coin gauche de mon UserForm
s'affiche pratiquement au centre de mon écran.Par contre la taille de
l'UserForm correspond bien à la taille de mon écran.

Que faire?

Merci pour votre aide

Jean-Pierre

2 réponses

Avatar
anonymousA
bonjour,

je ne rencontre pas cette difficulté si l'instruction est passée avant la
méthode show (du genre dans une proc appelante With
UserForm1.StartUpPosition = 3 suivi de userform1.Show End With) ou si elle
est positionnée dans l'evenement Initialze du userform.
Par contre, j'ai le même phénomène si elle est passée dans l'evenement
Activate

A+


Bonjour,

Je souhaite afficher mon UserForm plein écran et suivant les excellents
conseils de Excelabo j'ai écrit,

Private Sub UserForm_Activate()
With UserForm1
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
End With
End Sub

Mais, malgré StartUpPosition en 3 le haut du coin gauche de mon UserForm
s'affiche pratiquement au centre de mon écran.Par contre la taille de
l'UserForm correspond bien à la taille de mon écran.

Que faire?

Merci pour votre aide

Jean-Pierre






Avatar
Jean-Pierre
ça marche

merci pour l'info

A+

Jean-Pierre




"anonymousA" a écrit dans le message
de news:
bonjour,

je ne rencontre pas cette difficulté si l'instruction est passée avant la
méthode show (du genre dans une proc appelante With
UserForm1.StartUpPosition = 3 suivi de userform1.Show End With) ou si elle
est positionnée dans l'evenement Initialze du userform.
Par contre, j'ai le même phénomène si elle est passée dans l'evenement
Activate

A+


Bonjour,

Je souhaite afficher mon UserForm plein écran et suivant les excellents
conseils de Excelabo j'ai écrit,

Private Sub UserForm_Activate()
With UserForm1
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
End With
End Sub

Mais, malgré StartUpPosition en 3 le haut du coin gauche de mon UserForm
s'affiche pratiquement au centre de mon écran.Par contre la taille de
l'UserForm correspond bien à la taille de mon écran.

Que faire?

Merci pour votre aide

Jean-Pierre