Bonjour , j'ai ecris ce petit bout de code me permettant de generer une suite de 10 chiffres distincts (0 à 9) de sorte que:
le premier chiffre soit divisible par 1
le nombre formé par les deux seconds chiffres soient divisibles par 2
le nombre formé par les trois premiers chiffres soient divisibles par 3
le nombre formé par les quatre premiers chiffres soient divisibles par 4
ect.. jusqu'a ce que le nombre formé par les dix chiffres tous distincts soient divisibles par 10
Randomize
t = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
x = ""
3:
For i = 1 To 10
1: p = t(Int(Rnd * 10))
If InStr(x, p) > 0 Then
GoTo 1
Else
x = x & p
If Val(x) Mod Len(x) = 0 Then '--> dépassement de capacité
If Len(x) = 10 Then GoTo 4
GoTo 2
Else
x = ""
GoTo 3
End If
End If
2:
Next
4: MsgBox x
End Sub
le code me retourne bien la valeur souhaitée lorsqu'il plante pour depassement de capacité en allant sur la ligne indiqué en" dépassement de capacité " qui est x = 3816547290
Comment puis je y remedier sans changer la forme de mon bout de code ? il y a t une declaration de type de variable à ajouter sur x?
Merci pour vos suggestions