XL 2019 MsgBox avec condition vbYesNoCancel pour une cellule

[YAP32]

Bonjour,

Je souhaite faire afficher un msgbox quand j'envois un mail de ma feuille (qui fonctionne très bien avec le vbYesNoCancel) mais je n'arrive pas à insérer l'info d'une cellule dans le msgbox cellule concernée Range('D7") exemple "papa"


J'ai essayé le

Reponse = MsgBox("Êtes-vous certain de vouloir envoyer le mail à & worksheets("Mail").Range("D7") & ?", vbInformation + vbYesNoCancel, "Information")

ou

Reponse = MsgBox("Êtes-vous certain de vouloir envoyer le mail à & Cells(7, 4) & ?", vbInformation + vbYesNoCancel, "Information")

mais me donne erreur de syntaxe. Mon code :

Dim Reponse As Integer
Reponse = MsgBox("Êtes-vous certain de vouloir envoyer le mail à .......................... ?", vbInformation + vbYesNoCancel, "Information")
If Reponse = vbNo Then
ElseIf Reponse = vbNo Then
Else
If Reponse = vbYes Then

et ici je clic oui le mail est envoyé

Merci d'avance

 

[TooFatBoy]

Bonjour,

Tu as oublié des guillemets, me semble-t-il. 😉

Essaye comme ça :

Reponse = MsgBox("Êtes-vous certain de vouloir envoyer le mail à "& worksheets("Mail").Range("D7") &" ?", vbInformation + vbYesNoCancel, "Information")

 

[YAP32]

Bonjour,

Tu as oublié des guillemets, me semble-t-il. 😉

Essaye comme ça :

Merci beaucoup, c'est bien vu.