Un UserForm combiné à une Function de validation permet de vérifier automatiquement qu'il reste des places disponibles avant de confirmer une inscription à un événement.

Function PlaceDisponible(inscritsActuels As Integer, capaciteMax As Integer) As Boolean
    PlaceDisponible = (inscritsActuels < capaciteMax)
End Function

Private Sub CommandButton1_Click()
    Dim inscritsActuels As Integer
    inscritsActuels = Range("B2").Value

    If PlaceDisponible(inscritsActuels, 50) Then
        MsgBox "Inscription confirmée"
    Else
        MsgBox "Événement complet, inscription refusée"
    End If
End Sub

La Function PlaceDisponible renvoie True ou False selon que le nombre d'inscrits actuels (lu ici en B2) atteint ou non la capacité maximale (fixée à 50) ; le code du bouton n'a plus qu'à interroger ce résultat.

À vous de jouer : adaptez cette macro pour incrémenter automatiquement le nombre d'inscrits en B2 dès qu'une inscription est confirmée. 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.