Titre: La fonction Inputbox.
Description:
Affiche une invite dans une boîte de dialogue, attend
que l'utilisateur tape du texte ou clique sur un bouton, puis renvoie le contenu
de la zone de texte sous la forme d'une valeur de type String.
Voici un exemple pour afficher une boite d'entrée qui demande à l'utilisateur
"comment il va", avec comme titre, "question", et comme valeur par défaut
"bien". Si l'utilisateur entre la valeur "bien" (valeur par défaut...) un
message "moi aussi" apparait. S'il répond "mal" un message "dommage" s'affiche.
S'il répond autre chose, un message "plouf" apparait.
Le code:
Dim nomquelconque nomquelconque = InputBox("Comment vas-tu ?", "question", "bien") 'boite d'entrée... If nomquelconque = "bien" Then 'si l'utilisateur répond "bien" alors 'l'argument renvoyé est une chaine de caractères, et donc, est entre guillemets "". MsgBox ("moi aussi") ElseIf nomquelconque = "mal" Then 'si l'utilisateur répond "mal" alors MsgBox ("dommage") Else 'si l'utilisateur répond autre chose, alors MsgBox ("plouf") End If |