Si vous souhaitez obtenir des informations de l’utilisateur, vous pouvez utiliser la fonction INPUTBOX.

Cette fonction affiche une boîte de dialogue qui permet à l’utilisateur de remplir n’importe quoi et renvoie le contenu sous forme de chaîne.

Parfois, vous voulez décider de ce que l’utilisateur est censé remplir, au lieu d’accepter des informations. C’est à ce moment que vous utilisez la méthode INPUTBOX:

Sub DecideUserInput()

Dim bText As String, bNumber As Integer

' here is the INPUTBOX-function :

bText = InputBox("Insert in a text", "This accepts any input")

' here is the INPUTBOX-method :

bNumber = Application.InputBox("Insert a number", "This accepts numbers only", 1)

MsgBox "You have inserted :" & Chr(13) & _

bText & Chr(13) & bNumber, , "Result from INPUT-boxes"

End Sub

La méthode INPUTBOX a un troisième argument, Type, qui décide de ce que l’utilisateur est autorisé à insérer dans la boîte de dialogue INPUTBOX.

Le type peut être l’un des suivants:

Type:

Accepted input:

0   A formula

1   A number

2   Text

4   A logical value (True or False)

8   A cell reference, e.g. a Range-object

16  An error value, e.g. #N/A

64  An array of values

Lorsque nous exécuterons la macro, nous verrons les zones de saisie suivantes:

img1

img2

De cette façon, nous pouvons obtenir le résultat via une boîte de message.