Exemples d'utilisation de InputBox

Exemples d'utilisation de InputBoxRetour au menu Contrôles divers
Page mise à jour le : 31/03/2007
InputBox peut être utilisée soit comme fonction, soit comme méthode.

La fonction Inputbox permet d'afficher une boîte de dialogue contenant une zone de
texte légendée, invitant l'utilisateur à y saisir l'information attendue. L'information saisie
est renvoyée sous forme de chaîne de caractères et stockée dans une variable afin de
pouvoir être ensuite exploitée par le programme.

L'objet Application d'Excel possède une méthode InputBox que l'on peut substituer à la
fonction InputBox de Visual Basic.

La méthode Inputbox se présente comme la fonction InputBox mais offre une possibilité très
intéressante : elle permet de spécifier le type de données qui sera renvoyée (numérique, plage).

Saisie d'information via une InputBox (fonction).
Saisie d'information (valeur numérique) via une InputBox (méthode).
Saisie d'information (plage de cellules) via une InputBox (méthode).



Saisie d'information via une InputBox (fonction)Retour au début du document
Cette boite de dialogue avec une zone de texte légendée, invite l'utilisateur
à y saisir l'information attendue. L'information saisie est renvoyée sous forme
de chaîne de caractères et stockée dans une variable afin de pouvoir
être ensuite exploitée par le programme.

La boîte de dialogue

Le code

Code lançant l'ouveture de la boîte de dialogue InputBox

Sub UtilisationDeInputboxFonction()
Dim Inscription As String
Inscription = InputBox("Nom de l'adhérent :", "Nouveau membre")
' Si l'utilisateur n'a saisie aucune donnée et qu'il clique sur OK,
' ou si l'utlisateur clique sur Annuler, on quitte la procédure.
If Inscription = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
' Sinon la donnée saisie est affichée
Else
MsgBox Inscription
End If
End Sub

Saisie d'information (valeur numérique) via une InputBox (méthode).Retour au début du document

Cette boite de dialogue avec une zone de texte légendée, invite l'utilisateur
à y saisir l'information attendue sous forme numérique (type:=1). L'information
saisie est renvoyée sous forme de nombre et stockée dans une variable afin de
pouvoir être ensuite exploitée par le programme.

La boîte de dialogue

Le code

Code lançant l'ouveture de la boîte de dialogue InputBox

Sub UtilisationDeInputboxMethode()
Dim Recette As Integer
Recette = Application.InputBox("Recette effectuée :", "Saisie de la recette", Type:=1)
' Si l'utlisateur a cliqué sur Annuler ...
If Recette = False Then Exit Sub
' sinon la donnée saise est affichée
MsgBox "La recette est de : " & Recette
End Sub

Saisie d'information (plage de cellules) via une InputBox (méthode).Retour au début du document

Cette boite de dialogue avec une zone de texte légendée, invite l'utilisateur
à y saisir l'information attendue sous forme de sélection de plage (type:=8).
L'information saisie est renvoyée sous forme de plage et stockée dans une
variable afin de pouvoir être ensuite exploitée par le programme.

La boîte de dialogue

Le code

Code lançant l'ouveture de la boîte de dialogue InputBox

Sub UtilisationDeInputboxMethode()
Dim MaPlage As Range
On Error Resume Next
Set MaPlage = Application.InputBox(prompt:="Sélectionnez une plage de cellules.", _
Title:="Sélection d'une plage", Left:=5, Top:=5, Type:=8)
' Si l'utlisateur a cliqué sur le bouton Annuler ...
If Err.Number = 424 Then
MsgBox "Vous avez choisi d'annuler"
End
Else
' sinon la plage sélectionnée va être affichée
MsgBox "La plage sélectionnée est : " & MaPlage.Address
End If
End Sub

Pour plus d'informations, consultez l'aide sur InputBox.