Remplissage automatique tables

Version imprimable

31/07/2013, 16h38
youbz

1 pièce(s) jointe(s)

Remplissage automatique tables

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!

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:

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

02/08/2013, 12h40
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
02/08/2013, 13h47
mercatog

As tu lu ceci (en commentaire)

Citation:

/!\ Active la référence Solver dans vba Editor et l'AddIn Solveur dans Excel
02/08/2013, 14h21
youbz

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