XL 2019 MsgBox avec condition vbYesNoCancel pour une cellule

YAP32

XLDnaute Occasionnel
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 :


VB:
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
 

Discussions similaires

  • Question
Microsoft 365 MsgBox
Réponses
9
Affichages
407

Statistiques des forums

Discussions
311 733
Messages
2 082 008
Membres
101 864
dernier inscrit
elrecruiter