VBA - InputBox

le InputBox functioninvite les utilisateurs à entrer des valeurs. Après avoir entré les valeurs, si l'utilisateur clique sur le bouton OK ou appuie sur ENTRÉE sur le clavier, la fonction InputBox renverra le texte dans la zone de texte. Si l'utilisateur clique sur le bouton Annuler, la fonction renverra une chaîne vide ("").

Syntaxe

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

Description des paramètres

  • Prompt- Un paramètre obligatoire. Une chaîne qui s'affiche sous forme de message dans la boîte de dialogue. La longueur maximale de l'invite est d'environ 1024 caractères. Si le message s'étend sur plus d'une ligne, les lignes peuvent être séparées en utilisant un caractère de retour chariot (Chr (13)) ou un caractère de saut de ligne (Chr (10)) entre chaque ligne.

  • Title- Un paramètre facultatif. Une expression String affichée dans la barre de titre de la boîte de dialogue. Si le titre est laissé vide, le nom de l'application est placé dans la barre de titre.

  • Default- Un paramètre facultatif. Un texte par défaut dans la zone de texte que l'utilisateur aimerait voir afficher.

  • XPos- Un paramètre facultatif. La position deXL'axe représente la distance de l'invite du côté gauche de l'écran horizontalement. Si elle est laissée vide, la zone de saisie est centrée horizontalement.

  • YPos- Un paramètre facultatif. La position deYL'axe représente la distance d'invite du côté gauche de l'écran verticalement. Si elle est laissée vide, la zone de saisie est centrée verticalement.

  • Helpfile- Un paramètre facultatif. Expression String qui identifie le fichier d'aide à utiliser pour fournir une aide contextuelle pour la boîte de dialogue.

  • context- Un paramètre facultatif. Expression numérique qui identifie le numéro de contexte de l'aide attribué par l'auteur de l'aide à la rubrique d'aide appropriée. Si le contexte est fourni, le fichier d'aide doit également être fourni.

Exemple

Calculons l'aire d'un rectangle en obtenant les valeurs de l'utilisateur au moment de l'exécution à l'aide de deux zones de saisie (une pour la longueur et une pour la largeur).

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

Production

Step 1 - Pour exécuter la même chose, appelez en utilisant le nom de la fonction et appuyez sur Entrée comme indiqué dans la capture d'écran suivante.

Step 2- Lors de l'exécution, la première zone de saisie (longueur) s'affiche. Entrez une valeur dans la zone de saisie.

Step 3 - Après avoir entré la première valeur, la deuxième zone de saisie (largeur) s'affiche.

Step 4- Lors de la saisie du deuxième numéro, cliquez sur le bouton OK. La zone est affichée comme illustré dans la capture d'écran suivante.