Trouver la meilleure valeur

Bonjour,

J'ai 6 colonnes : A B C D E F
Et 11 lignes qui contiennent une valeur par colonne. Chaque ligne à donc 6 valeurs.

Je veux extraire la meilleur combinaison (somme des valeurs maximum) en retenant :
2 valeurs dans la colonne A, 1 dans la B, 3 C, 2 D, 1 E et 2 F. Évidemment, une ligne ne contribue que pour 1 valeur.

Merci de votre aide

Bonjour,

ce n'est pas très clair pour moi...

Je ne sais pas si je comprends la bonne chose mais à ce que je comprends, tu voudrais avoir l'adresse du maximum de chaque colonne?

Si c'est le cas, un boucle pourrait faire l'affaire!

Exemple :
______A B C D E F
ligne 1 6 2 3 4 5 1
ligne 2 6 2 3 4 5 1
ligne 3 1 6 3 4 5 2
ligne 4 1 2 6 4 5 3
ligne 5 1 2 6 4 5 3
ligne 6 1 2 6 4 5 3
ligne 7 1 2 3 6 5 4
ligne 8 1 2 3 6 5 4
ligne 9 1 2 3 4 6 5
ligne 10 1 2 3 4 5 6
ligne 11 1 2 3 4 5 6

La meilleur somme dans cet exemple sera 66 :
Rappel, il faut : 2 A, 1 B, 3 C, 2 D, 1 E et 2 F
ligne 1 A = 6
ligne 2 A = 6
ligne 3 B = 6
ligne 4 C = 6
ligne 5 C = 6
ligne 6 C = 6
ligne 7 D = 6
ligne 8 D = 6
ligne 9 E = 6
ligne 10 F = 6
ligne 11 F = 6

Plus claire?
merci

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

Sub CALC() Dim i As Integer   i = 1   v = Range("A2") + Range("B1") + Range("C3") + Range("D2") + Range("F2")   While Range("A" & i) <> "" s = Range("A" & i) + Range("B" & i) + Range("C" & i) + Range("D" & i) + Range("e" & i) + Range("F" & i) Range("g" & i) = s - v   i = i + 1   Wend Dim j, t As Integer j = 1 t = 1 valeur = Range("g" & j)   While Range("g" & j) <> ""     If valeur < Range("g" & j) Then valeur = Range("g" & j)   End If j = j + 1   Wend MsgBox ("la meilleur combinaison est : '" & valeur & "'") End Sub

---

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 32 33 34 35

Sub CALC() Dim i, j, C As Integer   i = 1 j = 1 a = 1 valeur = Cells(a, i)   While Range("A" & j) <> ""   If valeur < Cells(a, i) Then valeur = Cells(a, i) End If i = i + 1     If Cells(a, i) = "" Then Cells(a, i) = valeur   i = 1 a = a + 1 j = j + 1 End If   Wend C = 1   While Range("A" & C) <> ""   VALEUR2 = VALEUR2 + Range("g" & C).Value C = C + 1 Wend MsgBox VALEUR2   End Sub

---

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

Sub CALC() Dim i, j, C As Integer   i = 1 j = 1 a = 1 valeur = Cells(a, i)   While Range("A" & j) <> ""   If valeur < Cells(a, i) Then valeur = Cells(a, i) End If i = i + 1     If Cells(a, i) = "" Then 'Cells(a, i) s = valeur s = s + valeur i = 1 a = a + 1 j = j + 1 End If Wend   Range("h1") = "meilleur combinaison " Range("h2") = s   End Sub

---

Bonjour,

En G1 écrire =MAX(A1:F1)
En G2 écrire =MAX(A2:F2)
.....

Puis la somme des valeurs de la colonne G.

A+
RJ

Citation:

---

Envoyé par rjamin

Bonjour,

En G1 écrire =MAX(A1:F1)
En G2 écrire =MAX(A2:F2)
.....

Puis la somme des valeurs de la colonne G.

A+
RJ

---

Ce serait trop simple. :roll:

Si je modifie les valeurs de mon exemple, par celle ci :
______:A B C D E F
ligne 1 :6 2 3 6 5 1
ligne 2 :5 2 3 4 5 1
ligne 3 :1 6 3 3 5 2
ligne 4 :1 2 6 4 5 3
ligne 5 :1 2 6 6 5 3
ligne 6 :4 2 6 4 5 3
ligne 7 :1 2 3 6 5 4
ligne 8 :1 5 3 6 5 4
ligne 9 :1 3 3 4 6 5
ligne 10:1 4 2 4 5 6
ligne 11:1 2 3 4 5 6

Quelle est la meilleur somme dans cet exemple ?
Et pour chaque ligne quelle colonne a été retenue?
A priori, plusieurs solutions sont possibles...

Je ne pense pas que cela puisse se résoudre seulement en utilisant les fonctions d'Excel.

Re

C'est quoi la meilleur somme, la somme la plus grande, la plus petite ou ...?
Je ne comprends pas bien.
Dans le deuxième exemple la meilleure somme = ??
RJ.

C'est la meilleur combinaison, plus grande somme de valeurs.
On ne peux retenir qu'une valeur par ligne
ET
On ne peux retenir une colonne qu'un nombre de fois déterminée.

2 lignes avec la valeur contenue dans la colonne A,
1 ligne avec la valeur contenue dans la colonne B,
3 dans C, 2 dans D, 1 dans E et 2 dans F.