Discussion :

[Eycid]

Bonjour à tous,
Voila mon problème: je suis amené a réaliser une page excel ou je doit utiliser tout le temps le solveur.
Je voudrait créer une fonction du genre solve(la grandeur à faire varier; la cible à atteindre) afin de tout automatiser sachant que j'ai des dizaines de ligne comme ca .
Par exemple : on a A+B=C
On cherche B
avec A connu et C connu, on fait varier B jusqu'à trouver le C qu'on veut (mes équations sont beaucoup plus complexes bien sur et nécessitent le solver, ceci n'est qu'un exemple)
Je sais pas du tout comment faire j'ai essayé plusieurs choses mais je suis vraiment nul en VBA^^.
j'ai deja enregistré une macro auto et je l'ai un peu bidouillée mais j'arrive à rien.

Code :

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

1
2
3
4
5
6
7
8
9
Public Function Solve(formule As Integer, cible As Integer)
 
Dim variable As Integer
    SolverReset
    SolverOk SetCell:="formule", MaxMinVal:=1, ValueOf:="0", ByChange:="variable"
    SolverAdd CellRef:="formule", Relation:=2, FormulaText:="cible"
    SolverSolve True, False
 
End Function

Si quelqu'un à une idée...

Cordialement,

[HAL-9000]

Utiliser une méthode dichotomiale ?

[Eycid]

Je vois en gros le principe, mais je saurait pas le mettre en code en fait.
Pas d'exemple?
Personne veux m'aider?

[HAL-9000]

Principe grossier de l'algo cherchant à estimer la solution B de l'équation A + B = C avec dans notre exemple A=3 et C=10 :


1) Pas = A (= 3);
2) B = Pas;
3) tant que A + B < 10 poser B = B + Pas (donc B = 9 au final);
4) si A + B > 10 alors la solution B appartient à [Pas, B] (la solution B est comprise entre 3 et 9) et poser par conséquent Pas = Pas - Pas/2; (on diminue le pas); B = B-2*Pas; (on se repositionne sur la cas précédent ou A + B < 10); retour à l'étape 3)