Probleme macro solver

C

CHALET53

XLDnaute Barbatruc

• 11 Octobre 2013

• #2

Re : Probleme macro solver

Bonjour,
Si tu parles du nombre saisi en réponse à la question Prix (valeur à atteindre) : en mettant un nombre avec virgule, je n'ai pas de problème, la colonne Q contient bien ce nombre

a+

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 11 Octobre 2013

• #3

Re : Probleme macro solver

Bonjour,

Merci de la reponse rapide

Je comprend pas alors

j'ai beau essayer avec une virgule puis un point et ca change rien dans la colonne Q

c'est dingue ca

Auriez vous un conseil?

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 11 Octobre 2013

• #4

Re : Probleme macro solver

j'ai procédé en mettant ce code

Sub prix()

s = Application.InputBox("valeur à atteindre?", "valeur à atteindre?")


'For a = 3 To 9

SolverOk SetCell:=Cells(3, 17), MaxMinVal:=3, ValueOf:=s, ByChange:=Cells(3, 3)

SolverSolve '(True)
' Next

End Sub

j'ai une erreur du solveur: "erreur dans le modele. veuillez verifier que toutes les cellules et toutes les contraintes sont valides."

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 11 Octobre 2013

• #5

Re : Probleme macro solver

Par défaut, sur excel, tu utilises la virgule ou le point comme séparateur décimal ?

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 11 Octobre 2013

• #6

Re : Probleme macro solver

la virgule

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 11 Octobre 2013

• #7

Re : Probleme macro solver

j'ai pourtant utilisé les deux par precautions, mais aucun n'a marché

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 11 Octobre 2013

• #8

Re : Probleme macro solver

je viens de verifier sur les parametres de l'ordi: c'est la virgule le separateur decimal

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 11 Octobre 2013

• #9

Re : Probleme macro solver

essaie de modifier les paramètres régionaux pour mettre le point par défaut

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 11 Octobre 2013

• #10

Re : Probleme macro solver

inutile,

j'ai finalement reussi

Dim saze As Single
Sub prix()


saze = Application.InputBox("valeur à atteindre?", "valeur à atteindre?", 1)


For a = 3 To 14

SolverOk SetCell:=Cells(a, 17), MaxMinVal:=3, ValueOf:=saze, ByChange:=Cells(a, 3)

SolverSolve (True)
Next

End Sub

ca na pas ete evident mais ca marche a present

 

Vote positif 0 Vote négatif