Renvoyer une valeur dans un MsgBox

Question

Voilà, c'est un truc tout con, je voudrais savoir comment renvoyer la valeur d'un InputBox, du style

age=InputBox("Veuillez entrer votre age") 
MsgBox("Votre âge est *** (la valeur de age)

Pleeeeeeaaaaaaase, hellllp me!!!!!!!! 

Et aussi mettre un signe, comme une croix rouge, et un titre à l'inputbox

J'ai essayé de renvoyer la valeur comme en vbs, mais c'est pas ça. :sad) 

Même si mon pseudo est approprié, je sais, j'ai l'air d'un clown  :clown)  :clown)

deedstacktyk · Answer

Dim age As String
age = InputBox("Veuillez entrer votre age", "Titre input box", "age par défaut")
MsgBox "Votre âge est " & age, vbCritical, "Titre du msgbox"

deeds tacktyk

vbsourss · Answer

Là, c'est vraiment un truc con: comment dire quelque chose?

Pour la croix et le titre, ç'est bon

vbsourss · Answer

Merci deeds tacktyk. :kisses)

vbsourss · Answer

Je précise: 
If age = quelque chose Then

vbsourss · Answer

Il faut dire que moi aussi je séchais...

Crocodile306 · Answer

Beaucoup moin compliqué

age = InputBox ("Écrit ton age","Age","")
MsgBox"Ton age est "&age&".",vbinformation,"Age"

cs_jojodu44 · Answer

bonjour tout le monde 
est-ce que quelqu'un serait comment pourais-je mettre  des étoile (****)au lieu du texte normal dans inputbox par exemple
code=inputbox("veuiller donner votre mot de passe","windows safety disk")
merci d'avance

CharlieMeadows · Answer

Pas dur, le troisième paramètre dans la fonction Inputbox est ce qui va apparaître par défaut, donc tu y mets ce que tu veux

chaudier37 · Answer

age=InputBox("Veuillez entrer votre age") 
MsgBox("Votre âge est *** (la valeur de age)

Dim nom As String, age As String
nom = InputBox("entrez votre nom")
age = InputBox("entrez l'âge de " & nom)




Dim Msg, Style, Title, Help, Ctxt, Response, Myvariant
Msg = "L'âge de " & nom & "   est  " & age & "  ans"
Style = vbYesNo + vbCritical + vbDefaultButton2   ' Define buttons.
Title = "age et nom du client"    ' Define title.
Help = "DEMO.HLP"    ' Define Help file.
Ctxt = 1000 ' Define topic
        
Response = MsgBox(Msg, Style, Title, Help, Ctxt)

Renvoyer une valeur dans un MsgBox

9 réponses

Discussions similaires