Optimiser boucle en vba

-
Bonjour le forum,
Je souhaite optimise cette boucle sous forme de calcul.
do while nx>p1
nx=nx-p1
p1=p1-p2
p2=p2-p3
p3=p3-p4
p4=p4-1
c=c+1
loop

merci d'avance pour vos réponse.

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

Votre réponse

2 réponses

Messages postés
14457
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
26 mai 2019
130
0
Merci
Sans savoir ce qu'est sensé faire le calcul, dur de répondre.
Commenter la réponse de NHenry
0
Merci
bonjour,
voici un exemple:
nx=620113 (un chiffre compris entre 1 et 620113)
p1=211876
p2=17296
p3=1081
p4=46
c=0
en fin de boucle j’obtiens ce résultat:

nx=35292
p1=163185
p2=14190
p3=946
p4=43
c=3

Quelle formule ou méthode de calculs doit-je appliquer pour avoir le même résultat sans faire de boucle ?
merci beaucoup
NHenry
Messages postés
14457
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
26 mai 2019
130 -
C'est bien de mettre un exemple, mais expliquer à quoi sert le calcul serait plus utile, car je ne vois pas la relation entre le début et la fin.
Commenter la réponse de keevins