Un UserForm combiné à une Function de validation permet de vérifier automatiquement que la quantité récoltée saisie ne dépasse pas la capacité restante du silo de stockage.

Function CapaciteSuffisante(quantiteRecoltee As Double, capaciteRestante As Double) As Boolean
    CapaciteSuffisante = (quantiteRecoltee <= capaciteRestante)
End Function

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

    If CapaciteSuffisante(quantite, 500) Then
        MsgBox "Récolte enregistrée"
    Else
        MsgBox "Capacité du silo insuffisante pour cette récolte"
    End If
End Sub

La Function CapaciteSuffisante renvoie True ou False selon que la quantité récoltée saisie dépasse ou non la capacité restante du silo (fixée ici à 500 tonnes) ; le code du bouton n'a plus qu'à interroger ce résultat.

À vous de jouer : remplacez la capacité fixe (500) par une valeur lue dynamiquement dans une cellule de suivi du silo. 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.