Excel macro validation résultats d'une cellule

Bonjour,
je tente d'écrire une macro qui envoie un message box quand le résultat d'une formule dans une cellule (appelons la "V7") dépasse une valeur prédéfinie.
Il ne s'agit donc pas d'une validation d'une entrée directe mais d'une sorte de validation d'un résultat.
La macro ne doit pas être activée manuellement mais devrait s'auto-déclencher lors du changement de valeur dans cette cellule "V7".
Merci d'avance pour votre aide,

Bonjour

tu fais une petite fonction dans un module

Code:

---

1 2 3 4

function message(mess as string) as string msgbox mess message = "" end function

---

et dans une cellule, disons W7

Code:

---

=si(v7>9999;message("Depassement !");"")

---

Bonjour et bienvenue sur le forum ;)

Tu peux essayer la procédure évènementielle suivante :

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Range("V7").Value > 10 Then MsgBox "coucou" End Sub

---

Code à placer dans l'objet ThisWorkbook qui vérifiera à chaque modification sur la feuille si la valeur de la cellule V7 ne dépasse pas 10

EDIT : oups...2ème...salut Wilfried ;)

Salut mikske

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) Dim Plage_T As Range On Error Resume Next Set Plage_T = Target Set Plage_T = Union(Plage_T, Target.Dependents) On Error GoTo 0 If Intersect(Plage_T, [V7]) Is Nothing Then Exit Sub 'traitement de V7 End Sub

---

ça ne fonctionne que sur la feuille active. Si les arguments de la fonction sont sur une autre feuille, il faut utiliser la macro change de l'autre feuille pour calculer la feuille contenant V7 et regarder si la cellule correspond aux critère. Mais c'est une autre histoire....

Il me semble que la réponse de fring, bien que plus sobre, répond parfaitement à la demande, regarde ici http://www.developpez.net/forums/sho...99&postcount=3 ;)

@GorfaelJe viens de regarder ton code et je m'aperçois que si tu avais placé ta ligne en début de code, ta gestion d'erreur serait inutile ;)

Citation:

---

If Intersect(Plage_T, [V7]) Is Nothing Then Exit Sub

---

D'autant que s'agissant d'une seul cellule, un simple test sur l'adresse est suffisant

Code:

---

If Not Target.Address(0, 0) = "B7" Or Target.Cells.Count > 1 Then Exit Sub

---

Salut ouskel'n'or

Citation:

---

Je viens de regarder ton code et je m'aperçois que si tu avais placé ta ligne en début de code, ta gestion d'erreur serait inutile ;)

---

Oui et non : la cellule modifiée n'est pas V7, mais une des cellules utilisées dans la formule en V7. Et les cellules n'ont pas systèmatiquement des "parents", d'ou la nécessité de gérer l'erreur
A+

Regarde la ligne que j'ai ajoutée ;)

Salut ouskel'n'or
Un peu critique ce soir :roll:

Données :
V7 : =MAX(A1:E9)

La macro : j'ai juste rajouté une colorisation de la cellule (dernière ligne de code)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) Dim Plage_T As Range On Error Resume Next Set Plage_T = Target Set Plage_T = Union(Plage_T, Target.Dependents) On Error GoTo 0 If Intersect(Plage_T, [V7]) Is Nothing Then Exit Sub If [V7] > 10 Then Target.Interior.ColorIndex = 4 End Sub

---

et mets 12 en C2
fais-le avec ta macro
A+

Si tu crées des erreurs volontaires dans tes formules, ou que tu appelles des fonctions qui n'existent pas, alors tu as raison :mouarf:
Mais à mon avis, dans ces deux cas, il est préférable de savoir que ta formule génère une erreur ou que ta fonction n'existe pas ;)
Ce n'est que mon avis... mais je le partage
Bonne soirée

Cool,
Un tout grand merci à vous.
La proposition de fring fonctionne bien.
Il reste juste un petit problème, la cellule V7 fait appel à une formule (dans une autre feuille ) dont un des paramètres dépend d'un choix fait dans un combo box (situé dans la même feuille que V7 analysé). Ce choix ne se répercute pas alors que la cellulle V7 change de valeur mais ne semble pas enclencher la macro.
Gorfael, je n'ai pas de connaissance de base en VB et n'ai pas compris ce que fait, dans ta proposition, cette union et le test?
A+

Dans ce cas, tu dois mettre le code dans l'événement Calculate de la feuille pour laquelle tu testes V7

Code:

---

1 2 3

Private Sub Worksheet_Calculate() If Range("V7").Value > 10 Then MsgBox "coucou" End Sub

---

Dans l'événement Calculate à la place de Change, ça change tout :D
Regarde ce que je t'ai mis ;)
Par contre, si > 10, le code tel quel n'a pas fini de t'afficher le message. Faudra adapter. En l'état, tu n'as plus tellement la liberté de mouvements :aie:
Tu dis ce que tu veux faire si > 10
A+

Un grand merci à vous,
A+

Salut,
Je n'ai pas encore résolu le problème , je suis tjrs dessus (mais par intermittence). Je travaille sur base de la solution de Fring

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Range("V7").Value > 10 Then MsgBox "coucou" End Sub

---

mais il n'accepte pas que je remplace la valeur 10 par le contenu d'une autre cellulle (ds la même feuille) donc je chipote.
a+

Re,
Voilà, juste un petit problème de déclaration de variable.
Je vous recommende donc la solution de Fring (qui marche bien ds le cadre de ma petite feuille;

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Range("V7").Value > 10 Then MsgBox "coucou" End Sub

---

Code à placer dans l'objet ThisWorkbook
merci encore,