Fonction Inputbox dans Excel VBA

Vous pouvez utiliser la fonction InputBox dans Excel VBA pour inviter l’utilisateur à entrer une valeur. Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes:

1. Tout d’abord, déclarez la variable mavalue de type Variant.

Dim mavaleur As Variant

Remarque: nous utilisons ici une variable de type Variant car une variable Variant peut contenir n’importe quel type de valeur. De cette façon, l’utilisateur peut saisir du texte, des chiffres, etc.

2. Ajoutez la ligne de code suivante pour afficher la zone de saisie.

mavaleur= InputBox ("veuillez entrer une valeur")

3. Écrivez la valeur de mavaleur dans la cellule B2.

Range ("B2"). Value = mavaleur

Résultat lorsque l’utilisateur entre la valeur jospin et clique sur le bouton OK.

4. La fonction InputBox a plus d’arguments facultatifs. La ligne de code suivante montre une zone de saisie avec un titre affiché dans la barre de titre et a une valeur par défaut. La valeur par défaut sera utilisée si aucune autre entrée n’est fournie.

 valeur= InputBox ("veuillez entrer une valeur", "Salut", 360)

Résultat lorsque l’utilisateur clique uniquement sur le bouton OK.

Remarque: placez votre curseur sur InputBox dans Visual Basic Editor et cliquez sur F1 pour obtenir de l’aide sur les autres arguments facultatifs.

Code final 1

Sub FonctionUnputBox ()

Dim mavaleur As Variant

mavaleur= InputBox ("veuillez entrer une valeur")

Range ("B2"). Value = mavaleur

End Sub

Sub FonctionUnputBox ()

Dim mavaleur As Variant

mavaleur= InputBox ("veuillez entrer une valeur")

Range ("B2"). Value = mavaleur

End Sub

Code final 2

Sub FonctionUnputBox ()

Dim mavaleur As Variant

valeur= InputBox ("veuillez entrer une valeur", "Salut", 360)

Range ("B2"). Value = mavaleur

End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x