Posez votre question Signaler

Optimiser boucle en vba

-
VBA Office (Excel, Word ...) Posez votre question Signaler
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 

2 réponses

Signaler Commenter la réponse de NHenry
Messages postés
14597
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
2 décembre 2019
 137
0
Merci
Sans savoir ce qu'est sensé faire le calcul, dur de répondre.
Commenter la réponse de NHenry
Signaler Commenter la réponse de keevins
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
Signaler Commenter la réponse de NHenry
NHenry
Messages postés
14597
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
2 décembre 2019
 137 -
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
Répondre Posez votre question