Boucle sur un solver

Bonjour, je suis nouveau sur ce forum et j'espére que vous comprendrez mon language de profane et d'ignare à propos de VBA.

J'ai une équation de la forme ax^4+bx+c=0 (où a,b et c sont propres à une cellule).

J'ai prés de 700 valeurs à calculer à la main car le solveur d'excel semble ne pas pouvoir être "glissé" sur une colonne.

J'ai donc écrit une macro (bon j'avoue c'est un collégue qui l'a faite:oops:) qui donne ceci :

Code:

---

1 2 3 4 5 6 7

Sub solve()   ' solve Macro   SolverOk SetCell:="C19", MaxMinVal:=3, ValueOf:="0", ByChange:="D19" SolverSolve Userfinish:=True End Sub

---

Bon ça , ça marche,

Mais moi je voudrais ajouter une boucle, comme un " For K = 19 to 360"
avec "k" à la place de "19", mais évidemment, c'était trop simple, ça ne fonctionne pas!:evilred:

Donc si quelqu'un pouvait chevaleresquement me venir en aide pour que ma macro fonctionne sur ces plages de données :

C19: C360 = les cellules comportant la formule
D19: D360 = les cellules qui prendront les valeurs de x.

MERCI D'AVANCE si quelqu'un y arrive...

Salut et bienvenu

Peut être comme ça ?

Code:

---

1 2 3 4 5 6 7 8

Sub solve() Dim K As Integer ' solve Macro For K = 19 To 360 SolverOk SetCell:="C" & K, MaxMinVal:=3, ValueOf:="0", ByChange:="D" & K SolverSolve Userfinish:=True Next End Sub

---

A++
Qwaz

Bonsoir,

je ne connais rien en solver mais en regardant ton code :

Code:

---

SolverOk SetCell:="C19", MaxMinVal:=3, ValueOf:="0", ByChange:="D19"

---

j'ai l'impression d'avoir affaire à des string, si c'est le cas (ça m'étonnerais)

Code:

---

SolverOk SetCell:="C19", MaxMinVal:=3, ValueOf:="0", ByChange:="D" & k

---

on s'est croisé Qwaz

Citation:

---

Envoyé par Qwazerty

Salut et bienvenu

Peut être comme ça ?

Code:

---

1 2 3 4 5 6 7 8

Sub solve() Dim K As Integer ' solve Macro For K = 19 To 360 SolverOk SetCell:="C" & K, MaxMinVal:=3, ValueOf:="0", ByChange:="D" & K SolverSolve Userfinish:=True Next End Sub

---

A++
Qwaz

---

Je saute de joie un peu partout^^ Bref c'est parfait ça fonctionne :d merci à vous deux...:yaisse2: