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 :

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 :

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 :

0 commentaire