Lancer une macro MsgBox automatiquement

Résolu/Fermé

VincentDu Messages postés 6 Date d'inscription lundi 26 mars 2018 Statut Membre Dernière intervention 30 mars 2018 - 26 mars 2018 à 17:12
VincentDu Messages postés 6 Date d'inscription lundi 26 mars 2018 Statut Membre Dernière intervention 30 mars 2018 - 26 mars 2018 à 18:23

Bonjour,

Je sais que plusieurs topics ont déjà traité ce sujet, mais je n'arrive pas à faire ce que je veux malgré tout.

J'aimerai ajouter une macro sur mon Excel 2007 afin qu'un MsgBox se lance automatiquement quand la cellule F9 contient "Non", et un autre message si elle contient "Oui" (et logiquement aucun message si vide)

Voici ce que j'avais :

Sub Ma_macro()
Worksheets("Retraite").Select
If Cells(9, 6).Value = "Non" Then
MsgBox ("Vous ne pouvez accéder à une retraite anticipée")
Else
MsgBox ("Vous pouvez continuer les démarches")
End If
End Sub

Je précise que celle cellule est liée à une liste ne proposant que "Oui" ou "Non", ainsi que le fait que ma macro fonctionnait quand je l'activais, mais je souhaiterai qu'elle s'active toute seule après remplissage de la cellule.

Merci d'avance,
Vincent

A voir également:

Lancer une macro MsgBox automatiquement
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Automatiquement - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
26 mars 2018 à 17:30

Bonjour,

Code a mettre dans le VBA de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F9")) Is Nothing Then
        If Target = "Non" Then
            MsgBox ("Vous ne pouvez accéder à une retraite anticipée")
        ElseIf Target = "Oui" Then
            MsgBox ("Vous pouvez continuer les démarches")
        End If
    End If
End Sub

VincentDu Messages postés 6 Date d'inscription lundi 26 mars 2018 Statut Membre Dernière intervention 30 mars 2018
26 mars 2018 à 18:23

Bonjour F894009,

C'est exactement ce qu'il me fallait !

Merci beaucoup :)

Je clos le sujet.

Discussions similaires

exo pix

Remplir une cellule (texte) en fonction d'une autre (texte).

lancer un script sh

Transformer un chiffre en lettres dans excel sans macro

impossible de lancer l'application ce-30005-8 ps4

Discussions similaires

Newsletters