1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)

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.
Afficher la suite

2 réponses

Réponse 1 / 2
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.
Réponse 2 / 2

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
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.
Répondre Posez votre question