incrémenter 3 séries en parallèle

Bonjour à tous !

J'ai un petit souci, je m'embrouille depuis un moment :arf: . En placant juste des boucles FOR, je n'ai pas ce q je veux... je n'arrive guere à trouver la solution ... j'espère q vos brillants esprits vont y parvenir.

Je souhaite incrémenter 3 séries en parallèle...
si, a, b et c sont mes valeurs à incrémenter, j'ai :

Nb1 = Nb1bis * a
Nb2 = Nb2bis * b
Nb3 = Nb3bis * c

Mon but est de calculer nbtot = nb1 + nb2 + nb3 et de trouver les coordonnées (a,b,c) telles que nbtot soit min....
Pour cela, il faut q a, puis b puis c soient incrémentés les uns après les autres et q à chaque element incrémenté, nbtot soit calculé... comment faire ?

J'espère q j'aurai été clair. Merci d'avance pour votre aide.

Salut,

peux-tu préciser d'où viennent NB1bis, NB2bis, NB3bis ;)

Et, surtout, merci de montrer ton code , quel qu'il soit !!! :mouarf:

Bonjour,

Citation:

---

Envoyé par Mourne

J'espère q j'aurai été clair

---

Alors là...8O...pas du tout.

Pour commencer, regarde la définition du mot "incrémenter", je n'ai pas l'impression qu'il s'agisse d'incrémentation dans ce cas ci.

Ensuite relis ce que tu as écrits

Citation:

---

Mon but est de calculer nbtot = nb1 + nb2 + nb3 et de trouver les coordonnées (a,b,c) telles que nbtot soit min....
Pour cela, il faut q a, puis b puis c les uns après les autres et q à chaque element incrémenté, nbtot soit calculé... comment faire ?

---

Cela te paraît limpide ?

nb(i) et nb(i)bis sont des nombres q je récupère d'une feuille excel.

voici le code....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

coutMDE_client = Range("E10:H10") coutENR_NT_unit = Range("E16:H16") coutENR_T_Eunit = Range("E21:H21") coutENR_T_Punit = Range("E22:H22")   Nbclient_max() = Range("E12:H12") PuissENR_NT_max() = Range("E19:H19") ProdENR_T_max() = Range("E25:H25") puissENR_T_max() = Range("E26:H26")   conso() = Range("E6:H6") ecoMDE() = Range("E14:H14")   annee = 0 Nbclient = 0   For annee = 0 To 3 For PuissENR_NT = 1 To puissENR_T_max(annee) For Nbclient = 1 To Nbclient_max(annee) coutMDE(annee) = coutMDE_client(annee) * Nbclient     coutENR_NT(annee) = coutENR_NT_unit(annee) * PuissENR_NT coutENR_T(annee) = coutENR_T_Eunit(annee) * ProdENR_T + coutENR_T_Punit(annee) * puissENR_T   coutTotal(annee) = coutMDE(annee) + coutENR_NT(annee) + coutENR_T(annee) Next Nbclient Next puissENR_T   coutTotal(annee) = coutMDE(annee) + coutENR_NT(annee) + coutENR_T(annee) Next

---

J'avoue, c'est un peu compliqué... j'ai rajouté un mot que j'avais oublié... ds mon explication...

Citation:

---

mon but est de calculer nbtot = nb1 + nb2 + nb3 et de trouver les coordonnées (a,b,c) telles que nbtot soit min....
Pour cela, il faut q a, puis b puis c soient incrémentés les uns après les autres et q à chaque element incrémenté, nbtot soit calculé... comment faire ?

---

Le mieux c peut etre de prendre un exemple...

Itération 1 :
Nb1 = Nb1bis * 1
Nb2 = Nb2bis * 1
Nb3 = Nb3bis * 1
calcule de nbtot=f(nb1,nb2,nb3) et nboptimal = nbtot

Itération 2 :
Nb1 = Nb1bis * 2
Nb2 = Nb2bis * 1
Nb3 = Nb3bis * 1
calcule de f(nb1,nb2,nb3) => je stocke les valeurs a,b,c si nbtot est plus petit q ma valeur nboptimal puis nboptimal prend la nouvelle valeur nbtot.

Itération 3 :
Nb1 = Nb1bis * 2
Nb2 = Nb2bis * 2
Nb3 = Nb3bis * 1
calcule de f(nb1,nb2,nb3) => je stocke les valeurs a,b,c si nbtot est plus petit q ma valeur nboptimal puis nboptimal prend la nouvelle valeur nbtot.

Itération 4 :
Nb1 = Nb1bis * 2
Nb2 = Nb2bis * 2
Nb3 = Nb3bis * 2
calcule de f(nb1,nb2,nb3) => je stocke les valeurs a,b,c si nbtot est plus petit q ma valeur nboptimal puis nboptimal prend la nouvelle valeur nbtot.

Itération 5 :
Nb1 = Nb1bis * 3
Nb2 = Nb2bis * 2
Nb3 = Nb3bis * 2
calcule de f(nb1,nb2,nb3) => je stocke les valeurs a,b,c si nbtot est plus petit q ma valeur nboptimal puis nboptimal prend la nouvelle valeur nbtot.

etc....

j'espère q ce sera mieux...

Halte Stop....

Tu va dans tous les sens et tu ne respectes pas les regles du forum...

D'abord : :nosms:
Ensuite :tagcode: Pour ce faire il faut prendre le temps de lire et appliquer les consignes présentées en haut de la page http://www.developpez.net/forums/f66...cel/vba-excel/

Ensuite dans ton code :

Code:

---

1 2 3 4 5 6 7

coutTotal(annee) = coutMDE(annee) + coutENR_NT(annee) + coutENR_T(annee) Next Nbclient Next puissENR_T coutTotal(annee) = coutMDE(annee) + coutENR_NT(annee) + coutENR_T(annee) Next

---

2 fois la meme instructions. La première est à sa place, je pense. l'autre est a supprimer.

Il te manque alors des instructions avant ton code du genre :

Code:

---

1 2 3 4 5

min = 99999999999 min_a = 0 min_b = 0 min_c = 0

---

Et la fin de ton code devrait être quelquechose du genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11

coutTotal(annee) = coutMDE(annee) + coutENR_NT(annee) + coutENR_T(annee) If min > CoutOtal(annee) then min = CoutTotal(annee) min_a = annee min_b = .... ' je ne m'y retrouve pas dasn tes variables..... min_c = .... endif Next Nbclient Next puissENR_T   Next

---