XL 2010 Afficher des Userforms a une position bien precise à l'ecran

[aurelio.ewane]

Bonjour Chers Excelliste
je dispose d'un Userfom FrmAccueil qui est le premier qui s'affiche au démarrage

je dispose aussi de 04 labels
j'aimerais que lorsque je clique sur un Label (le nom peut changer)
que cela ouvre l'userform1 et cela soit centre dans le frame qui dans le FrmAccueil

je joins mon fichier

merci et cordialement

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[aurelio.ewane]

Bonjour
Ci joint ma solution

A+ François

Ouiiiiiiiiiiiii cest trop cool
cependant jai des questions

haut = 25 + Me.Frame51.Top + (Me.Frame51.Height / 2) - (UserForm1.Height / 2)
gauche = 5 + Me.Frame51.Left + (Me.Frame51.Width / 2) - (UserForm1.Width / 2)
UserForm1.StartUpPosition = Manual
UserForm1.Top = FrmAccueil.Top + haut
UserForm1.Left = FrmAccueil.Left + gauche
UserForm1.Show

que representents 25 et 5

et aussi si je veux que par exemple Userform1 soit un parametre c'est a dire le userform1 peut etre un nom variable comment devrait je faire

 

[jm.andryszak]

Bonjour Chers Excelliste
je dispose d'un Userfom FrmAccueil qui est le premier qui s'affiche au démarrage

je dispose aussi de 04 labels
j'aimerais que lorsque je clique sur un Label (le nom peut changer)
que cela ouvre l'userform1 et cela soit centre dans le frame qui dans le FrmAccueil

je joins mon fichier

merci et cordialement

bonjour
une approche avec la méthode move
Private Sub Label1_Click()
UserForm1.Show '0
End Sub
et dans userform1
Private Sub UserForm_initialize()
UserForm1.StartUpPosition = 0
UserForm1.Move FrmAccueil.Frame51.Left + FrmAccueil.Left, _
FrmAccueil.Top + FrmAccueil.Frame51.Top + 20, _
FrmAccueil.Frame51.Width, FrmAccueil.Frame51.Height
End Sub