Comment mettre un UF en haut a droite de l'écran

Bonjour

Dans le code de mon UF que faut il ajouter pour avoir l'UF en haut à droite de l'écran

Je vous remercie

Private Sub UserForm_initialize()

   For L = 1 To F02.Range("A" & Rows.Count).End(xlUp).Row
      Cmb_Nom.AddItem F02.Range("A" & L)
   Next

   For L = 6 To F02.Range("N" & Rows.Count).End(xlUp).Row
      Cmb_Paiement.AddItem F02.Range("N" & L)
   Next

End Sub

Bonjour Joco7915, le forum,

A tester...

Me.startUpPosition = 3
Me.Left = Application.Width - Me.Width

Source: https://silkyroad.developpez.com/VBA/UserForm/ :

III-D. Définir la Position de l'UserForm à l'écran

Cordialement,

Bonjour xorsankukai

Merci pour le tuyau exactement ce dont j'avais besoin.

Bonne fin d'année

bonjour

oui sauf que si l'application n'est pas maximisée a l'écran ben c'est choux blanc

Private Sub UserForm_Initialize()
    Dim wstate&
    With Application
        wstate = .WindowState
        .WindowState = xlMaximized
        Me.StartUpPosition = 0
        droite = (.Width - Me.Width) - 10
        Me.Left = droite
        DoEvents
        .WindowState = wstate
    End With
End Sub