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
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