VBA - Mettre une valeur dans une MSG BOX (correction)

[biobill]

Bonjour à tous,
nombreuses fois que je viens sur votre forum pour avoir de l'aide et je m'en viens à vous pour poser ma première question !!

Voilà je voudrais afficher la valeur d'une cellule dans une message box. Le problème est que j'ai ma formule VBA mais je n'arrive pas à faire prendre en compte la valeur de ma cellule... Voilà j'ai mis la partie en gras... Si quelqu' un peut m'aider :s




Select Case MsgBox("Do you want to know the price of the call/put option?" _
& vbCrLf & "(Value of cell B40)" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "This message box will deal with call/put : ")

Case vbYes




Call MsgBox("Valeur de cellule B40", vbInformation Or vbDefaultButton1, "The price of the call/put is")


Case vbNo

End Select

 

[Misange]

Re : VBA - Mettre une valeur dans une MSG BOX (correction)

Bonjour
essaie plutot comme ça 🙂

Sub test()
rep = MsgBox("Do you want to know the price of the call/put option?" _
& vbCrLf & "(Value of cell B40)", vbYesNo + vbQuestion + vbDefaultButton1, _
"This message box will deal with call/put : ")
If rep = vbYes Then
MsgBox Range("B40").Value
Else
MsgBox ("tant pis !")
End If
End Sub

 

[Modeste geedee]

Re : VBA - Mettre une valeur dans une MSG BOX (correction)

Bonsour®

Voilà je voudrais afficher la valeur d'une cellule dans une message box.

Select Case MsgBox("Do you want to know the price of the call/put option?" _
& vbCrLf & "valeur B40",vbYesNo Or vbQuestion Or vbDefaultButton1, _
"This message box will deal with call/put : ")
    Case vbYes
Call MsgBox("Valeur de cellule B40 : " & [B40], vbInformation Or vbDefaultButton1, "The price of the call/put is")
Case vbNo
End Select

précaution :
l'utilisation des "[ ]" fait référence à la feuille active

 

[biobill]

Re : VBA - Mettre une valeur dans une MSG BOX (correction)

Merci, ca marche !!!

 

[patoq]

Re : VBA - Mettre une valeur dans une MSG BOX (correction)

Salut biobill et bonjour le forum,

Il faut enlever les guillemets sinon ta msgbox t'affiche ce qui est entre guillemets.

Un petit fichier exemple aurait été le bienvenue en pièce jointe

A plus

Oups !! Désolé j'avais pas vu les autres réponses

 

[fhoest]

Re : VBA - Mettre une valeur dans une MSG BOX (correction)

Bonjour
Bienvenue sur le forum

Sub test()
Dim msg As Integer
msg = MsgBox("Do you want to know the price of the call/put option?" & vbCrLf & [B40], vbYesNo Or vbQuestion Or vbDefaultButton1, "This message box will deal with call/put : ")
Select Case msg
Case vbYes
MsgBox [B40], vbInformation Or vbDefaultButton1, "The price of the call/put is"
Case vbNo
MsgBox "test"
End Select
End Sub

A+
Edit oups: plus rapide que moi bonjour Modeste geedee,misange,patoq😱

 

[biobill]

Re : VBA - Mettre une valeur dans une MSG BOX (correction)

Ok je ferai cela la prochaine fois merci !

 

[Misange]

Re : VBA - Mettre une valeur dans une MSG BOX (correction)

Petite remarque au passage : select case n'est pas exactement adapté à ce genre de traitement. C'est la raison pour laquelle je t'ai proposé une autre syntaxe.
Privilégie select case pour les cas ou il y a de multiples et en tous cas plus de deux réponses possibles.
Ici en fait tu ne traites même qu'une seule réponse; le oui.
Pour l'utilisateur, le fait de demander voulez vous voir un message si oui j'affiche sinon je ne fais rien est aussi un peu agaçant : si il ne veut pas voir le contenu de B40 il doit cliquer pour dire qu'il ne veut pas. Autant lui montrer la valeur puisque de toutes façons il devra cliquer 🙂