Lancer une macro MsgBox automatiquement Résolu

Question

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

Configuration: Android / Chrome 65.0.3325.109

f894009 · Answer

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

Lancer une macro MsgBox automatiquement

1 réponse

Discussions similaires

Newsletters