Choisir l'emplacement d'un UserForm d'après sa situation à l'écran

K

kjin

XLDnaute Barbatruc

• 5 Septembre 2011

• #2

Re : Choisir l'emplacement d'un UserForm d'après sa situation à l'écran

Bonsoir,
Dans le module du usf

Code:

Private Sub UserForm_Click()
MsgBox "x:" & Me.Left & vbCrLf & "y:" & Me.Top
End Sub

...puis tu l'affiches et tu click dessus
A+
kjin

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Septembre 2011

• #3

Re : Choisir l'emplacement d'un UserForm d'après sa situation à l'écran

Bonjour Michou9, salut kjin 🙂

En ouvrant l'USF en non modal, on le positionne comme on veut :

Code:

Sub USF()
With UserForm1
  .Show 0 'non modal
  .Left = 20
  .Top = 20
End With
End Sub

A+

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Septembre 2011

• #4

Re : Choisir l'emplacement d'un UserForm d'après sa situation à l'écran

Bonsoir Job 🙂,
Pour le coup c'est moi qui ne comprends pas ta réponse...et tu vas me répondre "moi non plus" ! 😀
A+
kjin

 

Vote positif 0 Vote négatif

M

Michou9

XLDnaute Occasionnel

• 5 Septembre 2011

• #5

Re : Choisir l'emplacement d'un UserForm d'après sa situation à l'écran

Bonjour

Super, je vais pouvoir me simplifier la vie !


Je règle ses réglages directement dans les propriétés,
Je sais que l’on peut le faire en ligne de commande

J’ai essayé avec « UserForm.Top = 150 »

Et avec un tas d’autres commandes
Mais je n’ai jamais trouvé la bonne, car cela n’a aucun effet.

Connaîtrais-tu également la bonne formule ?

En attendant je remercie déjà pour cette 1ère réponse.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Septembre 2011

• #6

Re : Choisir l'emplacement d'un UserForm d'après sa situation à l'écran

Re,

Code:

UserForm.Top = 150

...ne fonctionnera que si ton usf se nomme effectivement "userform",...ce dont je doute
Il est préférable d'utiliser

Code:

Private Sub UserForm_Activate()
Me.Top = 150
Me.Left = 50
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

M

Michou9

XLDnaute Occasionnel

• 5 Septembre 2011

• #7

Re : Choisir l'emplacement d'un UserForm d'après sa situation à l'écran

Bonjour Job75
Ta réponse est arrivée pendant que j’appliquais la réponse de Kjin

Peux-tu détailler ta réponse
J’ai bien peur de ne pas suivre 🙁

Merci

 

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 5 Septembre 2011

• #8

Re : Choisir l'emplacement d'un UserForm d'après sa situation à l'écran

Bonsoir à tous,

Pas vraiment saisi 😕
En fait, tu fixes au départ la position de ton formulaire dans ses propriétés, tu le déplaces comme tu veux dans ta feuille de calcul et ensuite tu veux retrouver sa position initiale en cliquant dessus 😛

Code:

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 With UserForm1
   .Left = 150
   .Top = 150
 End With
 End Sub

Klin89

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Septembre 2011

• #9

Re : Choisir l'emplacement d'un UserForm d'après sa situation à l'écran

Re kjin,

kjin à dit:

Pour le coup c'est moi qui ne comprends pas ta réponse...

Cliquez pour agrandir...

Toi tu as déterminé les coordonnées, mais après il faut positionner l'USF à l'ouverture.

C'est ce que j'ai fait 🙂

A+

 

Vote positif 0 Vote négatif

M

Michou9

XLDnaute Occasionnel

• 5 Septembre 2011

• #10

Re : Choisir l'emplacement d'un UserForm d'après sa situation à l'écran

Re,

Merci pour cette nouvelle réponse

ne fonctionnera que si ton usf se nomme effectivement "userform"

Cliquez pour agrandir...

Effectivement, j'étais dans le panneau

Maintenant c'est parfait 😉

 

Vote positif 0 Vote négatif