Automatiser le solveur en VBA

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
j
jonny l'embrouille
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 5 septembre 2014
Version d'Excel : 2013

Message par jonny l'embrouille » 5 septembre 2014, 09:43

Bonjour,

Je débute en code VBA et j'ai une question dans l'utilisation du solveur.

J'ai une somme de carré à minimiser : la somme dépend de deux paramètres (\alpha, \beta). Et bien sûr je dois le faire sur 10 000 sommes.

Le solveur me produit une solution approchée convenable du couple quand je l'utilise manuellement sur un ou deux cas.

Mes sommes sont en colonnes 67 (BO), mes variables en colonnes 37 et 38 (AK, AL). Et voici le code que j'ai tenté de mettre en place et dont le message d'erreur se situe au niveau du solveur, puisqu'il me dit que les contraintes ou les conditions ne sont pas valides :

Sub Macro3()

Dim CellulesVariables As Range
Dim i As Integer
For i = 20 To 23
SolverReset
With Feuil1
Set CellulesVariables = Union(Range("AK" & i), Range("AL" & i))
End With
Cells(i, 67).Select
SolverOk SetCell:=ActiveCell, MaxMinVal:=3, ValueOf:="0", ByChange:="Union(Range("AK" & i), Range("AL" & i))" _
, Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
Next i

End Sub

Voilà, en espérant que vous puissiez m'aider, je pense que le problème se situe au niveau de la définition du "ByChange", mais je n'arrive pas à le modifier.

Bonne journée,

Jonny
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'736
Appréciations reçues : 703
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 5 septembre 2014, 11:04

Bonjour,
Essaie :
Set CellulesVariables = Range("AK:AL" & i)
SolverOk SetCell:=ActiveCell, MaxMinVal:=3, ValueOf:=0, ByChange:=CellulesVariables
* "GRG Nonlinear" étant la valeur par défaut du solver

Sans grande conviction ;;)
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
j
jonny l'embrouille
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 5 septembre 2014
Version d'Excel : 2013

Message par jonny l'embrouille » 5 septembre 2014, 12:18

Merci,

J'ai réussi à trouver une solution juste avant et mes simulations tournent mais je testerai ta solution demain

Je ne maîtrise pas encore l'objet, d'où mon problème assez simple.

bonne journée
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Solveur x2
    par zedar » 5 janvier 2015, 18:50 » dans Excel - VBA
    2 Réponses
    329 Vues
    Dernier message par zedar
    8 janvier 2015, 11:47
  • Problématique Solveur
    par gmass » 2 septembre 2014, 11:22 » dans Excel - VBA
    3 Réponses
    243 Vues
    Dernier message par gmass
    8 septembre 2014, 12:22
  • solveur excel
    par rugby874 » 6 septembre 2014, 04:21 » dans Excel - VBA
    11 Réponses
    568 Vues
    Dernier message par eriiic
    7 septembre 2014, 23:37
  • Solveur ou vba
    par Bob Diaquin » 4 octobre 2018, 22:29 » dans Excel - VBA
    25 Réponses
    479 Vues
    Dernier message par Theze
    8 octobre 2018, 19:52
  • Excel - solveur
    par Nicolas67000 » 27 octobre 2014, 17:26 » dans Excel - VBA
    3 Réponses
    222 Vues
    Dernier message par vba-new
    28 octobre 2014, 11:26
  • Solveur itératif
    par yann_m » 4 juillet 2018, 09:53 » dans Excel - VBA
    10 Réponses
    235 Vues
    Dernier message par eriiic
    5 juillet 2018, 12:02