Saisie inputbox vers msgbox [Résolu]

Messages postés
476
Date d'inscription
samedi 14 août 2004
Dernière intervention
2 juin 2012
- - Dernière réponse : cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Dernière intervention
30 juin 2009
- 23 août 2004 à 12:12
Bonjour tout le monde!

J'ai réalisé une saisie d'information avec inputbox, la réponse de la saisie apparaitra dans le msgbox.

Voicie le code ci-dessous.

Dim Prenom

Prenom = InputBox("Entree votre Prénom", "Démarage ", "")
If Prenom = "" Then

MsgBox "Domage"

Else

MsgBox "Bienvenue ", vbExclamation & Prenom

End If

Je souhaiterais savoir comment faire apparaitre le point d'exclamation dans le msgbox, j'ai réalisé ce code mais il marque erreur de compilation.

Mercie de votre aide.

A bientôt
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Dernière intervention
30 juin 2009
3
Merci
coches reponses acceptées ...MERCI

It@li@

Merci cs_ITALIA 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Messages postés
172
Date d'inscription
mardi 15 juillet 2003
Dernière intervention
4 août 2005
0
Merci
Salut,

...
else
MsgBox "bienvenue " & Prenom, vbExclamation
end if

@+
Messages postés
140
Date d'inscription
mercredi 18 juin 2003
Dernière intervention
16 décembre 2006
0
Merci
Hello...

Essaye ça :

(...)
If Prenom = "" Then

MsgBox "Dommage ! "

Else

MsgBox "Bienvenue, " & Prenom & " !", vbExclamation

End If

RicoNuch
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Dernière intervention
30 juin 2009
0
Merci
Dommage prend 2 "m"

vbCritical ou 16 .............Affiche l'icône Message critique.
vbQuestion ou 32......... Affiche l'icône Demande d'avertissement.
vbExclamation ou........... 48 Affiche l'icône Message d'avertissement.
vbInformation ou 64 ........Affiche l'icône Message d'information.

Dim Prenom

Prenom = InputBox("Entree votre Prénom", "Démarage ", "")
If Prenom = "" Then
Reponse = MsgBox("Dommage", , "Message")
Else
Reponse = MsgBox("Bienvenue " & Prenom, vbExclamation, "Message")
End If

It@li@
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Dernière intervention
17 octobre 2013
0
Merci
pendant qu'on y est :
Prenom = InputBox("Entrez votre Prénom", "Démarrage ", "")
Messages postés
476
Date d'inscription
samedi 14 août 2004
Dernière intervention
2 juin 2012
0
Merci
Bonsoir

Ca fonctionne.

Mercie de votre aide.

A bientôt

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.