Discussion :

[Masch14]

Bonjour à tous,

Un petit problème technique m'amène à découvrir ce forum. Voilà, j'aimerais utiliser une macro qui utilise le solver pour résoudre une équation et ce, en boucle. J'ai plus de 400 lignes à résoudre.

En gros, mon fichier ce présente tel que:

Colonne AN: cible l'équation que l'on veut minimum
Colonne de AA à AF: variable de l'équation à changer par le solver
Colonne de AH à AL: contraintes

Les données sont sur plusieurs lignes de 6 à 418 (appeler K ci dessous). Je découvre tout juste le VBA et les macros, alors soyez gentils Voilà mon travail à date:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MassMass()
Dim K As Integer
For K = 226 To 229
SolverReset
SolverOk SetCell:="AN" & K, MaxMinVal:=2, ByChange:="AA:AF" & K
SolverAdd CellRef:="AH" & K, relation:=2, formulaText:="J" & K
SolverAdd CellRef:="AJ" & K, relation:=2, formulaText:="J" & K
SolverAdd CellRef:="AL" & K, relation:=2, formulaText:="J" & K
SolverAdd CellRef:="AI" & K, relation:=2, formulaText:="I" & K
SolverAdd CellRef:="AK" & K, relation:=2, formulaText:="I" & K
SolverSolve Userfinish:=True
Next
SolverReset
End Sub

J'espère de pas avoir été trop confus. Merci pour votre aide

Masch

[EngueEngue]

Déjà

Code :

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

Bychange:="AA" & K & ":AF" & K

[Masch14]

Merci Enguex2. Cela semble marcher maintenant.