Déclenchement msgbox si dépassement de valeur

Bonjour à tous, je cherche à faire déclencher un msgbox si une seule cellule d'une plage dépasse une certaine valeur.

j' imagine que le sujet a déjà du être traité mais je suis désolé mais je ne trouve rien !

Je ne sais pas si j'ai étais clair mais sinon je vous joint un fichier.

merci d'avance.

Bonjour Samuel,

Quelque chose comme cela ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("B:B")) Is Nothing Then
    For Each cel In Range("E3:E17")
        If cel > 3 Then MsgBox ("Valeur dépassée")
    Next cel
End If
End Sub

A placer dans le code de la feuille bien sûr

A+

Merci beaucoup ça marche très bien sur l'exemple mais je peux pas le mettre en application sur mon fichier.

Est ce que il serait possible de le faire en private sub worksheet_calculate () ?

mais je peux pas le mettre en application sur mon fichier.

Dans ce cas il faut fournir un fichier exemple qui à la même mise en page et même fonctionnement que votre fichier final...

Nous ne sommes pas devins

Est ce que il serait possible de le faire en private sub worksheet_calculate () ?

En effet c'est une bonne idée:

Private Sub Worksheet_Calculate()
For Each cel In Range("E3:E17")
    If cel > 3 Then MsgBox ("Valeur dépassée")
Next cel
End Sub

A+

fabuleux ! Ça marche à merveille.

une fois de plus un grand merci 🙏