Exemples d'utilisation de InputBoxRetour au menu Contrôles divers


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.

Retour au début de document

Retour au début du document