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
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.
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
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.
Partager