Texbox divisible sur un USF

Bonsoir

Voila j'ai un USF avec 1 label et deux textbox.
Dans le premier textbox je rentre le nombre de participant ex. 71
Dans le premier Label je rentre le nombre de place assise par table ex. 4
Dans le Deuxième textbox je doit obtenir le nombre de table a quatre participant plus le nombre qui reste debout ex. 68 tables et 3 debout

Je vous remercie d'avance

Bonne soirée

Cordialement

Max

Bonsoir,
j'évite d'ouvrir les fichiers compressés mais à ta lecture, ça demande des explications (on n'ouvre pas tous les fichiers, alors une bonne explication...)

71 participants
tables de 4
68 tables, je pense qu'il y a erreur 68 X4 = 272
+ 3 debout, on arrive à 275 participants

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub TextBox1_Change() Dim Nb As Byte Dim T As Integer   Nb = Val(Me.Label1.Caption) If Nb <> 0 Then T = Val(Me.TextBox1.Value) Me.TextBox2.Value = T \ Nb & " tables" & IIf(T = Nb * (T \ Nb), "", " et " & T - Nb * (T \ Nb) & " debout") End If End Sub

---

Bonsoir mercatog,

Super exactement ma recherche

Je te remercie et te souhaite une bonne soirée

Cordialement

Max