Bonjour le forum Ci dessous un code que je positionne dans un textbox2 Private Sub TextBox2_Change() Superieur_a_10_places End Sub Sub Superieur_a_10_places() If Me.ComboBox2 = "Place Cinéma Perigueux" Then If Me.TextBox2 > 10 Then MsgBox "RESTREINT A 10 PLACES MAXIMUN", vbOKOnly Me.TextBox2...