Bonjour,
JE MET MON VB ICI CAR l'algo on y voie plus rien alors voila mes 2 codes vb ne marche pas et je trouve pas l'erreur le premier donne la décomposition d'un billets et le second c'est une permutation de X en y
Option Explicit
Dim somme As Integer
Dim reste As Integer
Dim NB20 As Integer
Dim NB10 As Integer
Dim NB5 As Integer
Dim NP2 As Integer
Dim NP1 As Integer
Sub main()
somme = InputBox("entrer somme")
NB20 = somme / 20
reste = somme Mod 20
NB10 = NB20 / 10
reste = somme Mod 10
NB5 = NB10 / 5
reste = somme Mod 5
NP2 = NB5 / 2
reste = somme Mod 2
NP1 = NP2 / 1
reste = somme Mod 1
MsgBox ("billets de 20 :" & NB20)
MsgBox ("billets de 10 :" & NB10)
MsgBox ("billets de 5 :" & NB5)
MsgBox ("billets de 2 :" & NP2)
MsgBox ("billets de 1 :" & NP1)
End Sub
Option Explicit
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
Sub main()
X = InputBox("entrer References")
Y = InputBox("entrer QTA")
Z = InputBox("entrer designation")
