Si Cumul dépasse une limite, MsgBox : "Attention !"

Bonjour à tous,

Voici la solution, suite à un post antérieur : il s'agit de provoquer l'apparition d'un message d'alerte (MsgBox) lorsqu'une cellule (contenant obligatoirement une formule) dépasse une limite, du style : "Attention ! Dépassement de limite".

Private Sub Worksheet_Calculate()

    ' Provoque l'affichage d'un MsgBox grâce à une cellule contenant une formule.

    ' Somme de F10 + G10 + H10 en I10 : si elle dépasse 2000, message "Dépassement de limite"
    If [I10] > 2000 Then MsgBox "Attention ! Dépassement de limite"
    '[I10] entre crochets ou Range ("I10") entre parenthèses

    ' Si elle est inférieure, message "Solde négatif"
    If [I10] < 0 Then MsgBox "Attention ! Vous avez un solde négatif."

End Sub

* Cette procédure doit être placée dans le Worksheet de la « Feuil1 (feuil1) » dans le développeur (Alt + F11), et non dans un module.

* C'est une procédure dont le nom est Worksheet_Calculate().

* Ici, elle provoque l'affichage d'un MsgBox dès dépassement de limites inférieure ou supérieure, mais elle peut aussi servir à proposer une nouvelle situation (par un MsgBox) qui peut appeler une nouvelle procédure (impression d'un document, inscription d'un candidat, réservation disponible d'un document, liste de personnes à contacter etc.)

* L'intérêt de cette procédure réside dans le fait qu'elle propose un choix : dès lors que les conditions sont remplies, une cellule-témoin est cochée et déclenche une nouvelle situation adéquate : c'est à l'utilisateur d'accepter ou de reporter son choix, mais au moins, il ne pourra pas ignorer le fait que la proposition lui a été signalée sur l'instant.

* La cellule-témoin est une cellule sur laquelle on n'agit pas. Il faut que les conditions soient obtenues pour "l'allumer" et déclencher l'apparition du message d'alerte, on n'a pas à s'en préoccuper, on attend que ça arrive.

Bonjour ChrisBlues, le forum,

Ce message aurait eu une meilleure place à la suite du post antérieur concerné ...

ric

Rectificatif : cette procédure doit être placée dans le Worksheet de la "Feuil..." concernée !

Exemple : Dans mon classeur "trois-postes.xlsm", si je place le tableau en Feuil3, j'installerai Worksheet_Calculate() dans le worksheet de "Feuil3(feuil3)".