Amelioration d' une boucle
Bonjour le forum
pouvez vous m'aide a trouve une formule ou une methode pour rendre cette boucle plus rapide,merci d'avance pour vos reponses.
nx=1530259
p1 = 211876: p2 = 17296: p3 = 1081: p4 = 46
s1 = 1: s2 = 2: s3 = 3: s4 = 4: s5 = 4
st1: If nx > p1 Then
nx = nx - p1
p1 = p1 - p2: p2 = p2 - p3: p3 = p3 - p4: p4 = p4 - 1
s1 = s1 + 1: s2 = s2 + 1: s3 = s3 + 1: s4 = s4 + 1: s5 = s5 + 1
GoTo st1
end if
st2: If nx > p2 Then
nx = nx - p2
p2 = p2 - p3: p3 = p3 - p4: p4 = p4 - 1
s2 = s2 + 1: s3 = s3 + 1: s4 = s4 + 1: s5 = s5 + 1
GoTo st2
end if
st3: If nx > p3 Then
nx = nx - p3
p3 = p3 - p4: p4 = p4 - 1
s3 = s3 + 1: s4 = s4 + 1: s5 = s5 + 1
GoTo st3
end if
st4: If nx > p4 Then
nx = nx - p4
p4 = p4 - 1: s4 = s4 + 1:
s5 = s5 + 1
GoTo st4
end if
Bonsoir
Pour moi elle est quasi instantanée (< 1sec)
Alors que faire de plus ?