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 :
Est ce que la position est calculée par rapport à l'écran ou par rapport à l'USF qui appelle cette proc ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci
Cordialement
Partager