ouvrir une form au meme endroit que la precedente [Résolu]

[bill7]

Bonjour,
je ferme une form et j en ouvre une autre, mais comment ouvrir la 2nde au même endroit que là où l'utilisateur avait pu déplacer la premiere avant d'ouvrir la seconde ?

[ouskel'n'or]

tu déclares deux variables en public dans le module standard de la macro qui sert à ouvrir le 1er userform, Gauche et Haut, par exemple, tu mets ce code dans l'événement mouseUp de l'userform

Code :

1
2
3
4
5
6
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'X est la position gauche (left) de l'userform
Gauche = X
'Y la position supérieure (Top)
Haut = Y
End Sub

et tu mets ce code dans l'événement qui te sert à ouvrir l'userform2, dans userform1

Code :

1
2
3
4
Load Userform2
Userform2.top = Haut
Userform3.left = Gauche
Userform2.show

ou dans userform_initialize de l'userform2

Code :

1
2
3
Private Sub userform_initialize()
Userform2.top = Haut
Userform3.left = Gauche

Tu testes les deux
A+

[bill7]

merci, d apres l aide sur top et left je pensais que ça s'appliquait pas à pour des forms elles memes. En tout cas ça marche