Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Affichage valeur d'une cellule dans un MsgBox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

aubelix

XLDnaute Impliqué
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
 

Pièces jointes

Re : Affichage valeur d'une cellule dans un MsgBox

Bonjour aubelix

chez moi cela marche avec le code (en bleu)

 
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
 
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
 
Dernière édition:
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
883
A
Réponses
5
Affichages
1 K
O
Réponses
2
Affichages
1 K
olivier91620
O
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…