Un événement Worksheet_Change (vu au chapitre précédent) permet d'alerter un commercial dès que le montant d'une commande saisie dépasse le quota mensuel autorisé, sans attendre une vérification manuelle en fin de mois.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$2" Then
        If Target.Value > 10000 Then
            MsgBox "Quota mensuel dépassé !"
        End If
    End If
End Sub

Ce code, placé dans le module de code de la feuille de suivi commercial, surveille en permanence la cellule D2 (le cumul de commandes du mois) et déclenche une alerte dès que sa valeur dépasse 10 000 $ — un contrôle qui s'exécute automatiquement à chaque saisie, sans macro à lancer manuellement.

À vous de jouer : adaptez ce code pour surveiller deux cellules différentes (deux commerciaux), chacune avec son propre seuil.