Bonjour,

désolé si le titre n'est pas très clair mais ce n'est pas facile a dire en une phrase ^^

voila mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cells As Range
For Each Cel In Range("f152:aj152")
    If Cel > 10 Then
    MsgBox "Seuil critique atteint", vbOKOnly, 48
Exit For
    End If
Next
End Sub
Je souhaite afficher un MsgBox en fonction d'une valeur d'une cellule d'une plage donnée, ( si une valeur dans (f152:aj152) passe supérieur à 10 le message s'affiche.

Mais je voudrais que quand je clique sur ok, et que je modifie une autre donnée, tant que une autre valeur ne passe pas au dessus de 10, le message ne s'affiche plus...

En vous remerciant par avance.