Private Sub Command1_Click()

Dim Tblbillet(9)
Tblbillet(1) = 500
Tblbillet(2) = 200
Tblbillet(3) = 100
Tblbillet(4) = 50
Tblbillet(5) = 20
Tblbillet(6) = 10
Tblbillet(7) = 5
Tblbillet(8) = 2
Tblbillet(9) = 1

Dim j As Boolean

j = False

nombre = Text1

If nombre >= 0 Then j = True Else MsgBox "Rentré un nombre positif"

For i = 1 To 9


If nombre = Tblbillet(i) Then MsgBox "il faut un billet de" + i & nombre = nombre - Tblbillet

Next i






End Sub