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

Affichage d'un MsgBox en fonction de la valeur d'une cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Sandra.M
  • Date de début Date de début

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 !

S'inscrire
S

Sandra.M

XLDnaute Nouveau
Bonjour à tous,

Je souhaite qu'un message box s'affiche lorsque le montant d'une cellule (O76) dépasse 1000.

Feuille : BC GOLD
Message à afficher : Souhaitez-vous bénéficier de l'offre Gold ?
Titre de la boite de dialogue : Offre Gold
Boutons : Oui / Non
Si non : retour à la feuille excel
Si oui : la cellule N118 doit passer de "o" à "x" puis retour à la feuille excel
Logo du Message Box : VbQuestion

N'ayant pas de bases concernant le langage VBA j'ai essayé plusieurs codes mais je n'arrive pas à les faire fonctionner ... pourriez-vous m'aider ?

Merci d'avance, bonne journée

Sandra
 
Trier par date Trier par votes
Bonjour Sandra et bienvenue sur XLD 🙂

Pas très clair tes explications. Sur quelle feuille se trouve la cellule N118? 🙄 Si c'est BC GOLD, pourquoi "retour à la feuille"?? 😵

En supposant, que cette cellule est sur une autre feuille ("DATA" par ex.), la macro est à mettre danss le module de cette feuille. Pour se faire, clic-droit sur celle-ci > visualiser le code, là tu fais un copier-coller de cette macro.

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim reponse

    Application.EnableEvents = False
    If Range("O76") > 1000 Then
        reponse = MsgBox("Souhaitez-vous bénéficier de l'offre Gold ?", vbQuestion + vbYesNo, "Offre Gold")

        If reponse = vbYes Then
            Range("n118") = "x"
        Else
            Range("n118") = "o"
            Sheets("BC GOLD").Activate
        End If
    End If
    Application.EnableEvents = True

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
141
Yogean
Y
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
170
Diane272727
D
C
  • Question Question
XL 2010 MsgBox selon la valeur d'une cellule
Réponses
2
Affichages
523
CATPLUS
C
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
935
fanfan38
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
212
tristan05
A
  • Résolu(e)
Microsoft 365 Modifier la couleur de fond d'une cellule lorsque l'on clique dessus
Réponses
14
Affichages
917
Alain 79
A
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
241
piga25
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
993
jojo4738
J
R
  • Question Question
XL pour MAC Action d'une formule conditionnelle dans une cellule en fonction de la couleur de cette cellule
2
Réponses
17
Affichages
429
rtlv17
R
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
719
iliess
I
A
  • Question Question
XL 2016 Récupérer la valeur d'une cellule en fonction de 2 conditions
Réponses
6
Affichages
284
Ariellab
A
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
292
crocrocro
C
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
194
job75
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
321
Phil69970
N
  • Question Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
367
mapomme
B
  • Question Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
521
JHA
J
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
674
Nel'
N
M
  • Question Question
XL 2021 Ouvrir un onglet en fonction de la valeur d une cellule
Réponses
4
Affichages
182
mathieu20
M
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
448
pvander
P
P
  • Résolu(e)
Microsoft 365 Rechercher une valeur d'une cellule à partir d'un nom de feuille
Réponses
2
Affichages
405
paulng
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…