Lancer une macro MsgBox automatiquement

Résolu
VincentDu Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
VincentDu Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -
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

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
1
VincentDu Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour F894009,

C'est exactement ce qu'il me fallait !

Merci beaucoup :)

Je clos le sujet.
0