Optimiser boucle en vba

Signaler
-
Messages postés
14726
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
28 septembre 2020
-
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.

2 réponses

Messages postés
14726
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
28 septembre 2020
144
Sans savoir ce qu'est sensé faire le calcul, dur de répondre.
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
Messages postés
14726
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
28 septembre 2020
144
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.