Discussion :

[Nicko-est-nul-en-vba]

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) qui donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

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...

[Qwazerty]

Salut et bienvenu

Peut être comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

on s'est croisé Qwaz

[Nicko-est-nul-en-vba]

Salut et bienvenu

Peut être comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...