communicate

Inputbox et Msgbox

23/04/2014

Vous souhaitez interagir avec l’utilisateur de votre modèle ? Rien de plus simple !

Demandez-lui son avis via l’Inputbox, envoyez-lui un message informatif via le Msgbox !

1) Le MsgBox

Inputbox & Msgbox - image 1Le Msgbox perme d’afficher une information à l’utilisateur.

Ouvrez Visual Basic (via la commande ALT + F11 en raccourci clavier) et tapez le code suivant :

sub monmessage ()
MsgBox « Bienvenue », , « Mon message »
end sub

Dans cet exemple, le titre du message est “Mon message”, son contenu est “Bienvenue”.

Par défaut, un bouton « OK » apparaîtra (propriété vbOKonly) :

 

Vous pouvez aussi personnaliser le bouton « OK » par (entre autres) :

le vbExclamation

Inputbox & Msgbox - image 3le vbCritical

Inputbox & Msgbox - image 4

2) L’InputBox

Inputbox & Msgbox - image 5

L’InputBox est une boîte de dialogue qui s’ouvre et demande à l’utilisateur d’entrer une valeur : celle-ci peut être un nombre, une chaine de caractère, etc…

Essayez, vous comprendrez !

Nous allons créer une macro permettant de rentrer son nom et l’insérer dans la première cellule de votre excel :

 

‘1 : on crée la macro « interaction » :

Sub interaction()

‘2 : on dimensionne le résultat que nous souhaitons obtenir (dans notre exemple ce sera une chaîne de caractères) :

Dim nom As String

‘3 : on attribue  l’Inputbox à ce résultat (interaction avec l’utilisateur : la variable reçoit la valeur entrée dans l’InputBox). Ici, nous avons mis pour titre de l’Inputbox « identité » et le message à l’attention de l’utilisateur « quel est votre nom ? » : 

nom = InputBox(« Quel est votre nom? », « identité »)

‘4 : on stocke le résultat saisi dans la première cellule de l’excel :   

Range(« A1 »).Value = nom

‘5 : on indique la fin de la macro

End Sub

 

Lors de l’exécution, vous obtiendrez le message suivant :

Inputbox & Msgbox - image 6

Après avoir cliqué sur « OK », vous trouverez en cellule A1 le résultat de ce que vous avez saisi dans l’Inputbox !