Position userform par rapport à un textbox

Bonjour chers tous

Dans mon fichier je renseigne mon textbox via un calendrier en double-cliquant .

Je voudrais que mon calendrier s'affiche juste à coté de mon textbox.

Merci...

8fichier-1.xlsm (47.21 Ko)

Bonjour, deux méthodes

- Soit vous modifiez manuellement les propriétés de votre userform "calendar"

Et puisque le premier userform s'ouvre au centre ... la propriété du deuxième devrait à peu prés être :

-StartupPosition sur 3 Windows Default

- Top 2.25

-Wildth 165.75

25fichier-1.xlsm (46.96 Ko)

Soit vous adaptez un code pour retenir la postion de votre userform la dernière fois qu'il a été utilisé.

Private Sub UserForm_Initialize() 
   Me.Left = GetSetting("Userform Positioning", ThisWorkbook.FullName & "-" & Me.Name, "Left", 0) 
   Me.Top = GetSetting("Userform Positioning", ThisWorkbook.FullName & "-" & Me.Name, "Top", 0) 
End Sub 

Private Sub UserForm_QueryClose(Cancel As Integer, _ 
                                CloseMode As Integer) 
   Call SaveSetting("Userform Positioning", ThisWorkbook.FullName & "-" & Me.Name, "Left", Me.Left) 
   Call SaveSetting("Userform Positioning", ThisWorkbook.FullName & "-" & Me.Name, "Top", Me.Top) 
End Sub 

Bonjour KTM, bonjour le forum,

Il te faut modifier la propriété StarUpPosition des deux UserForm à : 0 - Manual et ensuite leur donner leurs positions horizontale (propriété Left)et verticale (Top).

Pour USerFormTest j'ai définis : Left = 250 / Top = 250

Pour UserForm_Calendrier : Left : 500 (position Left du premier + 250) / Top = 250


[Édition]

Bonjour X-MEN nos posts se sont croisés...

Rechercher des sujets similaires à "position userform rapport textbox"