Bonjour tout le monde!

Ok je pige mieux! Merci pour ces explications!!!

Ca marche je vais essayer de m'habituer à déclarer mes variables correctement!

En tout cas mon problème est résolu donc je met le sujet en "résolu"! Merciiiiiiiiiiiii!!

Bon week end à tous

++

Bonjour Didier, bonjour le forum!

Merci pour ta réponse ... et... ca marche!!!!

Par contre, malgré ton explication je n'ai pas compris pourquoi il fallait rajouter ".adress". Tu dits que les arguments Cetsell et ByChange attendent une chaine de caractère. Mais en fait non ces cellules attendent un nombre!
J'étais donc septique mais j'ai quand même faits les modifs et ca marche... Peux tu m'éclairer un peu plus s'il te plaît pour que la prochaine fois j'évite de faire la même erreur?

Merci pour ton conseil pour déclarer les variables. J'essaierai de le faire même si j'ai l'impression que les déclarer n'influe pas trop sur le programme...

J'ai refaits le ménage dans ma boite mail!

Pour l'insertion de code, je ne savais pas que l'on pouvait faire comme ca, la prochaine fois je l'insererai correctement!

Merci pour ton aide!

++

Lannou

Bonjour à tous!

Bon, j'ai résolu mon problème précédent. En fait il fallait que j'active le fichier SOLVER.XLA

Le solveur fonctionne donc automatiquement quand j'appuie sur le bouton.
Par contre, j'ai un autre problème.

En fait le fichier va etre modifié et des données vont etre ajoutées. Il faut donc que je fasse en sorte que le solveur tourne même si on rajoute des données.

Pour ce faire j'ai écrit ce code :

Sub Macro2()
'
i1 = 9 'minimum du compteur de ligne de la colonne B
imax1 = Range("B65536").End(xlUp).Row
i2 = 9 'maximum du compteur de ligne de la colonne F
imax2 = Range("F65536").End(xlUp).Row

    SolverReset
    SolverOk SetCell:=Range("C" & imax1 + 1), MaxMinVal:=2, ValueOf:="0", ByChange:=Range("C9:C" & imax1)
    SolverAdd CellRef:=Range("C9:C" & imax1), Relation:=3, FormulaText:="0"
    SolverAdd CellRef:=Range("G9:G" & imax2), Relation:=3, FormulaText:=Range("H9:H" & imax2)
    SolverOk SetCell:=Range("C" & imax1 + 1), MaxMinVal:=2, ValueOf:="0", ByChange:=Range("C9:C" & imax1)
    SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _
        :=True, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
        IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=False
    SolverOk SetCell:=Range("C" & imax1 + 1), MaxMinVal:=2, ValueOf:="0", ByChange:=Range("C9:C" & imax1)
    SolverSolve userFinish:=True

End Sub

Or la macro plante quand elle arrive à la ligne " SolverAdd CellRef:=Range("G9:G" & imax2), Relation:=3, FormulaText:=Range("H9:H" & imax2)"
Le message suivant apparaît : "Solver : an unexpected internal error, or available memory was exhausted"

Savez vous pourquoi j'ai ce message? Y a t'il une erreur dans le code que j'ai écrit? Comment faire en sorte que macro tourne?

Merci à vous tous!

Bonjour Didier, bonjour le forum!

J'ai une question à vous poser.

Mon souhait est d'intégrer le solver dans une macro pour que lorsque je clique sur un bouton le solver se lance automatiquement.
J'ai dons fixer manuellement mes paramètres dans le solver par enregistrement pour avoir le code puis j'ai créé un bouton.

Cependant lorsque je clique sur le bouton, le solver ne tourne pas et bute sur les premiers mots du code "solverok".

Il apparait alors une fenêtre "erreur de compilation Sub ou fonction non définie"

Le code est le suivant :

Sub Macro1()
'

    SolverOk SetCell:="$C$17", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$9:$C$16"
    SolverAdd CellRef:="$C$9:$C$16", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$G$9:$G$14", Relation:=3, FormulaText:="$H$9:$H$14"
    SolverOk SetCell:="$C$17", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$9:$C$16"
    SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _
        :=True, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
        IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=False
    SolverOk SetCell:="$C$17", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$9:$C$16"
    SolverSolve

End Sub

Si vous souhaitez plus de renseignements, je joints mon fichier!

J'ai cherché pas mal de temps sans trouvé...Si quelqu'un à la réponse ce serait cool!

Merci d'avance à tous

Re-bonjour à tous

Arf désolé de ne pas avoir marqué "résolu" correctement... Je ferai attention dans le prochian post!

Merci pour l'info concernant ma boite mail! (je reçois beaucoup de mail et sa capactié est faible). Je vais faire le ménage ce soir.

Merci à vous tous,

Cordialement,

Lannou

Bonjour à tous!

Merci JCGL! J'ai tout compris et ca marche nickel! Merci à vous pour m'avoir dépanné et m'avoir appris un truc, c'est vraiment sympa!

Vous êtes super fort sur Excel, il y a du level... Si j'ai d'autres questions je n'hésiterai pas à venir défiez votre savoir!!!

Comme promis, je met [Résolu] à ce poste ainsi qu'au poste du fil XLD comme me la demandé Didier!

Encore merci à vous,

Lannou

Bonjour tout le monde!

Me revoilà après un petit week end bien sympatique et une nouvelle semaine qui commence...

Merci pour ta réponse JCGL, c'est pile poil ce que je voulais!! Par contre comment as tu faits???

Bonjour à tous!

OK ca marche Didier, la prochaine fois je posterai ds la l'autre partie du forum.

JCGL, pas de soucis pour déplacer le bouton. Par contre ce que je cherchais à faire c'est l'incorporer dans la cellule C3 comme c'est fait dans le fichier excel présent au lien indiqué dans le premier poste. Savez vous comment faire?

Après, promis Didier je clos les deux discussions!!!

Bon week end à vous

@ pluche

Bonjour à tous!

Merci à toi JCGL pour l'imprime écran qui m'a aidé à piger...
Effectivement marco l'avait dit mais des phrases comme " Il suffit de placer ce code dans le module de code du formulaire" ou  "marco avait dit qu'il fallait mettre le code dans le module de l'USF", je ne comprends pas ! Je suis vraiment novice dans le vba

Donc un grand merci à vous trois pour m'avoir aidé! C'est vraiment sympa de votre part! Ce forum est vraiment super! J'aurai un pris un truc !!!

Vu qu'en ce moment je bosse pas mal sur excel, je ferai sans doute appel à vos talents!

Encore merci!

PS : juste une petite question avant de clore le sujet, savez vous comment je peux faire pour intégrer le bouton de la macro dans la cellule C3?

++

Bonjour à tous!

Merci Marco pour ta réponse! J'ai rentré le code mais cela ne fonctionne pas comme tu peux le constater par le fichier excel ci-joint.

Je pense que c'est parceque je n'ai pas défini de cellule cible. Je veux que ce soit la C4, comment je fais pour la définir?