Un UserForm combiné à une Function de validation permet de vérifier automatiquement qu'une dépense saisie respecte un plafond budgétaire, avant même son enregistrement.

Function DepenseAutorisee(montant As Double, plafond As Double) As Boolean
    DepenseAutorisee = (montant <= plafond)
End Function

Private Sub CommandButton1_Click()
    Dim montant As Double
    montant = TextBox1.Value

    If DepenseAutorisee(montant, 2000) Then
        MsgBox "Dépense enregistrée"
    Else
        MsgBox "Dépense refusée : dépasse le plafond autorisé"
    End If
End Sub

La Function DepenseAutorisee renvoie True ou False selon que le montant saisi dépasse ou non le plafond (fixé ici à 2000 $) ; le code du bouton se contente d'interroger ce résultat pour décider du message à afficher.

À vous de jouer : remplacez le plafond fixe (2000) par une valeur lue dynamiquement selon la catégorie de dépense choisie dans une ComboBox. Le test de l'interface se fait directement dans l'éditeur VBA ; l'exercice porte ici sur la logique de validation appelée par le bouton.