VBA : création d’une boîte de dialogue

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 :

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 :

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 :