Déclencher macro en fonction d'une valeur

[Jess5913]

Bonjour tout le monde !

Je souhaiterais avoir un peu d'aide concernant une macro.

J'ai un tableau qui m'indique si mes dossiers sont à jour ou pas. Donc, dans le tableau s'il le dossier est à jour, dans une cellule il est noté "Oui", sinon, et bien c'est "Non". J'obtient ce résultat qui est lié à un autre tableau sur excel.

Donc est-il possible de créer une macro qui se déclenche quand la cellule "P6" = "Non" ? Je souhaiterai afficher un MsgBox. J'ai tenté de créer une macro mais ça ne donne rien :

Private Sub Worksheet_Calculate()
If Range("P6") = "Non" Then MsgBox "Attention ! Le dossier n'est pas à jour", vbExclamation, "ATTENTION"
End Sub


Est-ce que quelqu'un aurait une idée ?

Merci d'avance

 

[JCGL]

Re : Déclencher macro en fonction d'une valeur

Bonjour à tous,

Ton code fonctionne parfaitement....

Où est-il placé ?



A+ à tous

 

[Berg1664]

Re : Déclencher macro en fonction d'une valeur

Bonjour

JCGL et Jess, en faisant un copier coller du code ci-dessus à l'endroit indiqué rien ne se passe quand je valide Non dans la cellule P6, qu'aurais je pu oublier ?

Merci
Bonne journée

 

[Jess5913]

Re : Déclencher macro en fonction d'une valeur

Bonjour,

C'est exact, ça fonctionne, je ne l'avais pas placé dans la bonne feuille. Super, merci de m'y avoir fait penser.

BERG1664, il faut copier le code dans "Feuil" et non dans un module, et là ça fonctionne.

A bientôt

 

[JCGL]

Re : Déclencher macro en fonction d'une valeur

Bonjour à tous,

L'événementielle est _Calculate donc tu mets Non en P6 et dans une autre cellule tu tapes = 1 et là la MsgBox apparaitra

A+ à tous

 

[Berg1664]

Re : Déclencher macro en fonction d'une valeur

JCGL Ta lanterne illumine notre chemin ;-)