incrémenter 3 séries en parallèle

[Mourne]

Bonjour à tous !

J'ai un petit souci, je m'embrouille depuis un moment . 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.

[Godzestla]

Salut,

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

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

[fring]

Bonjour,

Envoyé par Mourne

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

Alors là......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

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 ?

[Mourne]

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

voici le code....

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...

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...

[Godzestla]

Halte Stop....

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

D'abord :
Ensuite 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 :

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 :

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

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

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