Re : [XL 2010] Résolution de 26304 quations sous excel !!!
Bonjour
voici un exemple de code dont tu pourrais t'inspirer
pour réaliser ton job
cette macro xl 2003 utilise le solveur pour réaliser un calcul de valeur pour optimiser un rendement
A adapter bien sûr à ton cas
Sub Ciblage()
'Calcul du cours pour obtenir un rendement défini dans la
'cellule F3
Application.ScreenUpdating = False
Dim Arrdata, data&
Arrdata = Array(0.05, 0.1, 0.15, 0.2, 0.25, 0.3, 0.35)
Dim Res() As Variant, Rng As Range
ReDim Res(1 To 100, 1 To 7)
Z = 1: Col = 1: Y = 0
'With Feuil2
For Y = LBound(Arrdata) To UBound(Arrdata)
'Range("trop").GoalSeek _
Goal:=Range("objtr").Value, ChangingCell:=Range("cours")
Range("objtr").Value = Arrdata(Y)
Range("trop").GoalSeek _
Goal:=Arrdata(Y), ChangingCell:=Range("cours")
'End With
'stockage des résultats dans un tableau intermédiaire
Res(1, 1) = Range("objtr").Value
Res(Z + 1, Col) = Range("gpo").Value
Res(Z + 2, Col) = Range("cours").Value
Res(Z + 3, Col) = Range("cours").Offset(2, 0).Value
'Debug.Print Res(3, 1)
'Construction du tableau des résultats dans la feuille cible
Set Rng = Feuil4.Range("B2").Offset(0, Y)
'Rng.Offset(0, -1).Value = "Taux"
Rng.Resize(4, 1) = Res
Next
Erase Res: Set Rng = Nothing
Application.GoTo reference:=Feuil4.Cells(2, 1), Scroll:=True
End Sub
Cordialement