InputBox position inopérante

Bonjour le Forum,

et Meilleurs Voeux...

Quelques soient la syntaxe utilisée et les valeurs données aux arguments left et top ma box s'affiche toujours au même endroit (très près du coin inférieur droit à égale distance des bords droit et inférieur de l'écran. Voir les lignes "vRep =" dans le code ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub InpBox12A(Question As String, Titre As String) Do While vRep = "0" vRep = Application.InputBox(Question, Titre) 'vRep = Application.InputBox(Question, Titre, , 1000, 1000) 'vRep = Application.InputBox(Question, Titre, , 20, 20) 'vRep = Application.InputBox(prompt:=Question, Title:=Titre, Left:=300, Top:=250) If Val(vRep) > 2 Or Val(vRep) < 0 Or vRep = "" Then vRep = "0" End If If vRep = "Faux" Then Exit Sub End If Loop   End Sub

---

Est ce que la position est calculée par rapport à l'écran ou par rapport à l'USF qui appelle cette proc ?
Merci
Cordialement

Bonjour,

Pas de problème pour moi, la ligne ci-dessous s'affiche bien dans le coin supérieur gauche de mon écran. (comportement identique entre appel à partir d'une feuille ou d'un userform)

Code:

---

InputBox("test", "test", "", 50, 50)

---