VBA automatisation du solveur ne fonctionne pas
Résolu/Fermé
A voir également:
- VBA automatisation du solveur ne fonctionne pas
- Excel compter cellule couleur sans vba - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
- Vba autofill ✓ - Forum Excel
1 réponse
yg_be
Messages postés
23487
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 mars 2025
Ambassadeur
1 570
5 janv. 2019 à 18:18
5 janv. 2019 à 18:18
bonjour, merci de partager le texte exact du message d'erreur, et d'expliquer sous quelle forme il est affiché. comment faire pour reproduire le problème avec ton fichier?
5 janv. 2019 à 18:27
Sheets("Caché").Range("A19").FormulaR1C1 = "F2" Sheets("Caché").Range("A20").FormulaR1C1 = "n*" Sheets("Caché").Range("A21").FormulaR1C1 = "K*(n*)" Sheets("Caché").Range("A22").FormulaR1C1 = "T" Sheets("Caché").Range("A23").FormulaR1C1 = "Variable contrainte 1" Sheets("Caché").Range("A24").FormulaR1C1 = "Variable contrainte 2" 'Sheets("Caché").Range("B19").FormulaR1C1 = f2 Sheets("Caché").Range("B20").FormulaR1C1 = netoile Sheets("Caché").Range("B21").FormulaR1C1 = k Sheets("Caché").Range("B22").FormulaR1C1 = t 'Sheets("Caché").Range("B23").FormulaR1C1 = solveur1 'Sheets("Caché").Range("B24").FormulaR1C1 = solveur2 Sheets("Caché").Range("B19").Formula = "=(($B$2*$B$8)/($B$20*$B$21*$B$16))+($B$20-1)*$B$21*$B$16*($B$14/2)+$B$4*$B$2*$B$22*$B$10" Sheets("Caché").Range("B23").Formula = "=(($B$2*$B$9)/($B$21*$B$16))+($B$21*$B$16*$B$15)/2-(RACINE(2*$B$2*$B$9*$B$15))" Sheets("Caché").Range("B24").Formula = "=$B$4*$B$2*$B$22*$B$11" SolverReset SolverOk SetCell:="$B$19", MaxMinVal:=2, ValueOf:=0, ByChange:="$B$20:$B$22", Engine:=1, EngineDesc:="GRG Nonlinear" SolverAdd CellRef:="$B$23", Relation:=1, FormulaText:="$B$24" SolverAdd CellRef:="$B$20", Relation:=3, FormulaText:="1" SolverAdd CellRef:="$B$20", Relation:=4, FormulaText:="entier" SolverAdd CellRef:="$B$21", Relation:=3, FormulaText:="1" SolverAdd CellRef:="$B$21", Relation:=4, FormulaText:="entier" SolverAdd CellRef:="$B$22", Relation:=3, FormulaText:="1e-18" SolverSolve Userfinish:=True SolverReset f2 = Sheets("Caché").Range("B19").ValueEn fait l'erreur intervient dans la cellule de l'excel, il m'affiche #NOM à la cellule B23.
Je sais que ça veut dire que la formule est mal écrite mais je n'arrive pas à trouver l'erreur.
Je pense que si vous lancez le programme ça vous affichera pareille.
5 janv. 2019 à 19:24
Sheets("Caché").Range("B23").Formula = "=(($B$2*$B$9)/($B$21*$B$16))+($B$21*$B$16*$B$15)/2-(RACINE(2*$B$2*$B$9*$B$15))"Modifié le 5 janv. 2019 à 19:49
cela ne fonctionnera que dans un Excel en français: peut-être préférable de mettre tes formules en anglais en VBA.
tu peux aussi faire exposant un demi.
6 janv. 2019 à 12:06
6 janv. 2019 à 14:37