Obliger une compobox a toujours s'afficher en haut et à droite d'un écran

Bonsoir :-)))))))))))))))))

Un petit ajustement : souvent la fenêtre pour choisir les établissements se place en bas et à moitié cachée...

Est-ce-possible de l'obliger à se placer tout en haut et à droite de l'écran, systématiquement ?

Je pense que c'est dans ce code qu'il faut agir pour obliger le compobox à se placer toujours en haut et à droite de l'écran :

Private Sub UserForm_Initialize()
     Arr_CBO = Application.Transpose(Range("etablissements").Value2)
     ListBox1.List = Arr_CBO
     'Me.Tag = "Initialize"
End Sub

Private Sub xUserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     '******************************************************************************
     'parce que le dropdown ne peut pas se faire dans le "UserForm_Initialize" (fausse position du dropdown !!)
     'on fait ce contournement pour positioner le dropbox en dessous/en dessus du combobox1
     '******************************************************************************
     If Me.Tag = "Initialize" Then
          With ComboBox1
               .SetFocus
               ComboBox1.DropDown
          End With
          Me.Tag = ""
     End If
End Sub

Private Sub TextBox1_change()
     Dim s, i
     s = TextBox1.Text
     If s = "" Then Exit Sub
     With ListBox1
          If Len(s) = 0 Then Arr = Arr_CBO Else Arr = Filter(Arr_CBO, s, 1, 1)
          If UBound(Arr) = -1 Then
               .Clear
          Else
               .List = Arr
          End If
     End With
     If UBound(Arr) = 0 Then ListBox1.ListIndex = 0
End Sub
Private Sub ListBox1_Click()
     If ListBox1.ListIndex <> -1 Then Me.Hide
End Sub

Encore merci pour avoir pris le temps de me lire :-))))))))))))))))))

à bientôt :-)))))))))))))))))))))))))))

Bon w.e.

Bonjour,

Met qu.que chose comme çà :

Private Sub UserForm_Initialize()
400     Arr_CBO = Application.Transpose(Range("etablissements").Value2)
     Me.Top = 5
     Me.Left = Application.Width - 400
     ListBox1.List = Arr_CBO
End Sub

A+

Bonjour,

Il faut jouer avec les propriétés de l'userform et mettre "StartupPosition" sur "CenterOwner"

et le mieux que vous obtiendrez est le centrage de l'userform

Cdlt

Bonjour Arturo83 & Galopin01,

Merci bcp pour une nouvelle de vos aides :-))))))))))))))))))))

Roger, ça ne change pas ==>

à moins qu'il faille doubler avec la proposition d'Arturo83 car ça marche ==>

Impec !!!!

Merci à vous 2 :-))))))))))))))))))))))

à bientôt :-)))))))))))))))))))))