changer le pas d'une itération VBA

Bonjour à tous,

J'ai un petit problème de "pas" dans mon application. Pour faire simple, je souhaite résoudre des équations du type ax+x^2=c avec excel.
Pour cela j'ai tapé ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub bouboucle() x = 3 pas = 1 Do x = x + pas Cells(2, 1) = x   Loop While 4 * Cells(2, 1) - Cells(2, 1) ^ 2 <> Cells(2, 3) And x < 10   MsgBox x End Sub

---

Mais, lorsque je souhaite changer le pas, cela ne marche pas:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub bouboucle() x = 3 pas = 0.1 Do x = x + pas Cells(2, 1) = x   Loop While 4 * Cells(2, 1) - Cells(2, 1) ^ 2 <> Cells(2, 3) And x < 10   MsgBox x End Sub

---

Et ça m'intrigue, puisque normalement je devrais tomber sur le même résultat dans les deux cas, non ?

Merci de jeter un coup d'oeil si vous avez le temps !

Salut,

plutôt que de tâtonner pour trouver la solution à ton équation, je te recommande vivement d'utiliser le solveur.

TOn équation étant du second degré d'une part, et non spécifiquement diophantienne, il est possible que les deux codes te donnent deux valeurs (correctes toutes deux) différentes.

Bonjour,

Il est fort possible que la précision d'Excel induise une erreur suffisante pour que l'égalité
4 * Cells(2, 1) - Cells(2, 1) ^ 2 = Cells(2, 3) ne soit jamais vérifiée.

Fais un test avec un arrondi de la valeur :
Round(4 * Cells(2, 1) - Cells(2, 1) ^ 2,1) <> Cells(2, 3)

Cordialement.

bonjour

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub bouboucle()   x = 3 pas = 0.1 Do x = x + pas Cells(2, 1) = x a = 4 * Cells(2, 1) - Cells(2, 1) ^ 2 Loop While 4 * Cells(2, 1) - Cells(2, 1) ^ 2 <> Cells(2, 3) And x < 10   MsgBox x End Sub

---

en faisant affichage, fenetre variable locales
en lancant la procedure en manuel avec F8 et en surveillant la valeur que prend a, vous comprendrez aisement pourquoi?

Bonjour,

C'est juste un exercice pour te familiariser avec le vba ou un besoin réel ?
Parce que sinon tu as une méthode de résolution qui te donne les racines exactes par calcul.

Et comme dit gFZT82, peu de chance que tu tombes sur la solution selon le pas choisi et les erreurs d'arrondis. Round() est impératif.
eric

Bonjour.

Le problème semble lié à l'imprécision des nombres flottants à double précision sur lesquels sont effectuées des opérations.

Peut-être utiliser des variables de type Currency ou Single, ou encore faire effectuer les opérations par des formules.

Merci à tous pour vos réponses.

C'est effectivement juste un exercice que je m'étais imposé pour me familiariser avec le VBA que je ne maîtrise absolument pas ...
Je vais tenter avec la fonction Round, mais ... je suis tout de même surpris que ce soit une histoire d'arrondis, je ne m'attendais absolument pas à ça.

Pour tout vous dire, je me suis fixé comme objectifs de résoudre des systèmes avec conditions à l'aide de VBA. Voilà, important d'avoir des challenges.