Enregistrer les coordonnées d'un UseForm en le plaçant directement à l'écran

[Chri8Ed]

Bonjour à tous

J'avais trouvé il y a longtemps une macro qui permettait en plaçant un UserForm où on le souhaite à l'écran
d’enregistrer ces coordonnées.

Ce qui permettait ensuite de le placer à chaque ouverture à ce même emplacement
Sans devoir chercher cette position par tâtonnement.

J'ai perdu ce code et je n'arrive pas à le retrouver sur le Forum.

Merci si quelqu'un à cela

A+

 

[Dranreb]

Re : Enregistrer les coordonnées d'un UseForm en le plaçant directement à l'écran

Bonjour.
Il y a cette possibilité :

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Left = Evaluate(Me.Name & "Left")
Me.Top = Evaluate(Me.Name & "Top")
…

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Names.Add Name:=Me.Name & "Left", RefersToR1C1:="=" & Str$(Me.Left)
ThisWorkbook.Names.Add Name:=Me.Name & "Top", RefersToR1C1:="=" & Str$(Me.Top)
End Sub

Mettre StartUpPosition sur "0 - Manual"

 

[Chri8Ed]

Re : Enregistrer les coordonnées d'un UseForm en le plaçant directement à l'écran

Bonjour

Merci pour ce code
Mais c'est bien en fait 2 macros ?;
Il manque "End Sub" en dessous Me.Top ?

Cela fonctionne parfaitement
Mais je suis intrigué
Où sont enregistrées ainsi les coordonnées de l'emplacement 😕

A+

 

[Dranreb]

Re : Enregistrer les coordonnées d'un UseForm en le plaçant directement à l'écran

Oui, bien sûr, il y a en général d'autre choses derrière dans la Userform_Initialize, d'où mes "…" (Alt+0133)
Elle sont enregistrées en guise de références à des noms dans le classeur.

 

[Chri8Ed]

Re : Enregistrer les coordonnées d'un UseForm en le plaçant directement à l'écran

Re,

à des noms dans le classeur

Je ne vois pas mieux ???

Mais merci encore, car c'est vraiment formidable 😛

A+

 

[Dranreb]

Re : Enregistrer les coordonnées d'un UseForm en le plaçant directement à l'écran

En Excel 2002 ou 3 on voit ces noms en menus Insersion, Nom, Définir…
Faut les utiliser ces noms, surtout pour définir des références de plages cette fois, ça peut rendre plein de choses bien plus claires.