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

Guest
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
292
Marie.
M
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
190
sylvanu
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
134
Nico Gre
N
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
518
Yogean
Y
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
350
Diane272727
D
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
294
PRy
P
C
  • Question Question
XL 2010 MsgBox selon la valeur d'une cellule
Réponses
2
Affichages
588
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
1 K
fanfan38
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
397
tristan05
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
838
piga25
A
  • Résolu(e)
Microsoft 365 Modifier la couleur de fond d'une cellule lorsque l'on clique dessus
Réponses
14
Affichages
1 K
Alain 79
A
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
787
rtlv17
R
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
1 K
jojo4738
J
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
887
iliess
I
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
560
crocrocro
C
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
397
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
665
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
494
mapomme
B
  • Question Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
703
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
996
Nel'
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…