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

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

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

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 de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *