validation des données

Salut

supposons la formule en colonne D

à mettre dans le module de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("d" & Target.Row) < 5 Then MsgBox "Alerte !"
End Sub

a+
rural thierry
"MARY" <mary.sauveton@tiscali.fr> a écrit dans le message de news:
cohplf$cq6$1@news.tiscali.fr...

J'aimerais afficher un message d'erreur lorsque mon stock (la cellule
contient une formule) descend au-dessous d'un certain chiffre.

Apparemment pas avec validation des données

Comment puis-je faire ?

Merci beaucoup et bonne journée

Mary

Exemple : Alerte quand la valeur de A1 descend au-dessous de 10
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If zz < 10 Then MsgBox "Alerte !"
End Sub

AV