Il existe plusieurs boîtes permettant de dialoguer avec l’utilisateur  comme les MsgBox et les InputBox.

Les  fonctions Msgbox() et InputBox () permettent d’afficher une boîte de message au-dessus de votre feuille de calcul. Une message box est une boîte de dialogue permettant d’informer l’utilisateur de quelque chose pendant l’exécution du programme à n’importe quel moment. Une InputBox peut quant à elle demander une saisie de texte.

Dans cet article, nous allons réaliser deux types de boîtes de dialogue. La première affichera un message d’information à l’utilisateur et la deuxième lui demandera de donner une information par saisie de texte.

Afficher un message d’information avec une « message box » :

Pour créer une « message box », il faut :

  • créer une procédure
  • insérer votre texte dans la fonction MsgBox entre guillemets

Il est donc possible de le coder ainsi :

Sub messagebox() MsgBox "Bienvenue sur la feuille de calcul !" End Sub
Code language: JavaScript (javascript)

Cela affiche donc un message sur la feuille de calcul :

Message Box

Il est également possible d’afficher un message d’erreur au besoin. Par exemple, si un paramètre n’est pas renseigné par l’utilisateur ou si il ne correspond pas à ce qui est attendu, il est important de le lui indiquer pour qu’il détecte immédiatement le problème.

Le code est donc le suivant :

Sub Erreur() If Range("E7") = "" Then MsgBox "Un paramètre n'est pas renseigné", , "Error" End If End Sub
Code language: JavaScript (javascript)

Et ce message s’affiche ainsi sur la feuille de calcul :

Affichage du message d’erreur

Afficher une boîte de dialogue avec saisie de texte :

Pour créer une boîte de dialogue avec saisie de texte, il faut :

  • créer une procédure
  • déclarer la variable demandée en chaîne de caractères
  • utiliser la fonction InputBox(« message », « titre »)
  • vérifier que le message n’est pas vide
  • insérer dans la case souhaitée la réponse de l’utilisateur

Le code est le suivant :

Sub votrematériauu() Dim matériauu As String matériauu = InputBox("Quel matériau souhaitez-vous étudier ?", "choix du matériau") If matériauu <> "" Then Range("B3") = matériauu End If End Sub
Code language: JavaScript (javascript)

Cela affiche sur la feuille de calcul :

Boîte de dialogue avec saisie de texte
Catégories : VBA

0 commentaire

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *