Discussion :

[youbz]

Bonjour,
J'aurai besoin d'un petit coup de main pour automatiser le remplissage de tableaux.
Un fichier d'exemple est fourni en piece jointe. Une petite explication s'impose:
J'ai y=ax+b (je prends un exemple simple, la formule reelle dans mon fichier est plus complexe).
Je cherche la valeur max de "b" pour attendre ymax=100 et ceci pour differentes valeurs de "a" indexant plusieurs tables et differentes valeurs de "x" dans chaque table. Les valeurs sont inserees dans les differentes cellules des tables correspondantes et je souhaiterai que ce remplissage soit automatique.
Actuellement, je calcule "y" en incrementant manuellement la valeur et je rentre (toujours manuellement) la valeur trouvee pour b dans les tables.
Est-ce quelqu'un aurait une idee de ce qu'il faudrait coder pour obtenir ce que je souhaite?
Merci!

[mercatog]

La formule réelle est secrète?
S'il n'y a pas de méthode directe (par rapport à la formule) je pense utiliser le solveur en boucle pour chaque valeur de a et x.


EDIT: Exemple utilisant le solveur en boucle (Ton fichier)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
'/!\ Active la référence Solver dans vba Editor et l'AddIn Solveur dans Excel
'----------------------------------------------------------------------------
Sub Test()
Dim a As Integer, x As Integer
 
With Feuil1
    For a = 1 To 5
        .Range("B4") = a
        .Cells(4 * a - 1, 6) = a
        For x = 1 To 10
            .Range("B5") = x
            .Cells(4 * a, 5 + x) = x
            SolverOk SetCell:="$B$6", MaxMinVal:=3, ValueOf:=100, ByChange:="$B$3", Engine:=1, EngineDesc:="GRG Nonlinear"
            SolverSolve True
            .Cells(4 * a + 1, 5 + x) = .Range("B3")
            SolverReset
        Next x
    Next a
End With
MsgBox "Remplissage terminé"
End Sub

[youbz]

Merci pour ta reponse mercatog,
Non la formule n'est pas secrete mais assez longue donc pour que ce soit plus clair, j'ai simplifie au maximum le fichier.
j'ai ajoute la macro dans mon fichier mais l'execution s'arrete a "solverOK":
compile error
sub or function not defined

[mercatog]

As tu lu ceci (en commentaire)

/!\ Active la référence Solver dans vba Editor et l'AddIn Solveur dans Excel

[youbz]

super ca marche!
Je n'avais pas active l'add-in solver dans les options excel et les references de VB.
Merci!