Ameliore une boucle en vba excel

novice excel vba -  
vordano Messages postés 1685 Date d'inscription   Statut Membre Dernière intervention   -
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

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

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

st4: If nx > p4 Then nx = nx - p4: p4 = p4 - 1: s4 = s4 + 1: s5 = s5 + 1: GoTo st4


s5 = s5 + nx: s(1) = s1: s(2) = s2: s(3) = s3: s(4) = s4: s(5) = s5
A voir également:

1 réponse

Réponse 1 / 1
vordano Messages postés 1685 Date d'inscription   Statut Membre Dernière intervention   316
  
while(nx > p1)
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
wend
0