[XL-2007] InputBox position inopérante [Résolu]

[danisoaz]

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

[jfontaine]

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)