Affichage valeur d'une cellule dans un MsgBox

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Une question concernant les MsgBox :

J'ai un ADDin excel MZTools pour ne pas le citer.
Très pratique entre autre pour les MsgBox.

J'ai obtenu le code (voir fichier joint).
En voulant le modifier pour lui ajouter la valeur de la cellule B4
j'obtien un message d'erreur.

Select Case MsgBox("Vous allez sauvegarder les données sous :" _
& vbCrLf & Sheets("DATA").Range("B4").Value _
& vbCrLf & "Confirmez-cous votre choix" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Sauvegarde sous N° : ")

Pourriez-vous m'aider SVP.
Par avance Merci.
Cordialememet

 

[phlaurent55]

Re : Affichage valeur d'une cellule dans un MsgBox

Bonjour aubelix

chez moi cela marche avec le code (en bleu)

Sub sauvegarder()



Select Case MsgBox("Vous allez sauvegarder les données sous :" _
& vbCrLf & Range("B4").Value _
& vbCrLf & "Confirmez-cous votre choix" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Sauvegarde sous N° : ")

Case vbYes




Call MsgBox("Vous allez sauvegarder", vbInformation Or vbDefaultButton1, "Réponse OUI")


Case vbNo

End Select

End Sub

 

[mutzik]

Re : Affichage valeur d'une cellule dans un MsgBox

Bonjour Aubelix,

avant de faire complique, je fais simple, à savoir :
- dim var
- var = MsgBox("Vous allez sauvegarder les données sous :" _
& vbCrLf & Sheets("DATA").Range("B4").Value _
& vbCrLf & "Confirmez-cous votre choix" _
, vbYesNo or vbQuestion or vbDefaultButton1 😡 , "Sauvegarde sous N° : ")

là, il faut choisir un bouton !! pas trois

- msgbox var

et ensuite tu fais tu select case sur var

 

[phlaurent55]

Re : Affichage valeur d'une cellule dans un MsgBox

Re,

je viens de découvrir ton erreur

tu n'as pas de feuilles nommée "Data" dans ton exemple mais bien une feuille qui se nomme "Feuil1"

remplace donc
Sheets("DATA").Range("B4").Value
par
Sheets("Feuil1").Range("B4").Value


Edit Bonjour Mutzik

 

[aubelix]

Re : Affichage valeur d'une cellule dans un MsgBox

Bonjour phlaurent55, mutzik, plaurent55.

Merci pour vos réponse respectives.

J'ai effectué les modifications. Tout fonctionne bien.
Quant au nom de la feuille, c'est le nom de la feuille de mon projet.
Le Beug venait de la syntaxe, pas du nom de la feuille.

Mille mercis pour votre aide.
Cordialement.