Choix de valeurs dans un tableau

[litelsousa]

Bonjour,

Comment peut-on faire pour obtenir la solution d'addition la plus économique de différentes valeurs d'un tableau.

Je vous ai mis un exemple avec 3 entreprise pour trois lots, mais dans mon cas, je dois le faire avec 8 entreprises, ce qui me donne quand même... 40320 solution de permutation, ce sera donc un petit peu compliquer à la main.

Les obligations sont les suivantes:

- Chaque entreprise doit être utilisée
- Chaque lot doit être distribué

Je vous remercie pour votre aide, et je vous assure ce n'est pas une énigme de l'île aux maths!!!

 

[CISCO]

Re : Choix de valeurs dans un tableau

Bonjour

Tu peux faire avec

Sub total()

Dim i As Integer, j As Integer, k As Integer, total As Long
Min = 9 ^ 9
total = 0
Range("H7:H10").Delete
For i = 4 To 6
    For j = 4 To 6
        If j <> i Then
            For k = 4 To 6
                If k <> j And k <> i Then
                total = Cells(7, i).Value + Cells(8, j).Value + Cells(9, k).Value
                If total < Min Then Min = total: Cells(7, 8) = Cells(7, i): Cells(8, 8) = Cells(8, j): Cells(9, 8) = Cells(9, k): Cells(10, 8) = total
                End If
            Next
        End If
    Next
Next

End Sub

dans un module

@ plus

 

[litelsousa]

Re : Choix de valeurs dans un tableau

Merci bien,

Dans ce cas là, ça marche nickel.

Mais je suis malheureusement incapable d'augmenter ce code pour un nombre de colonne plus important... donc de ligne également car il y a une entreprise par lot...

Désolé

 

[CISCO]

Re : Choix de valeurs dans un tableau

Bonjour

Cf. en pièce jointe. Il y a certainement une méthode plus astucieuse que cette série de boucles imbriquées les unes dans les autres, mais bon, là, je ne vois pas...

@ plus

 

[litelsousa]

Re : Choix de valeurs dans un tableau

Merci, c'est déjà ok pour moi, je peux faire ma répartition entre les 8 entreprises. ça me fera déjà gagner un temps monstrueusement énorme.

 

[CISCO]

Re : Choix de valeurs dans un tableau

Bonsoir

Une autre possibilité en pièce jointe, avec le solveur (données --> solveur (au besoin à charger dans Fichier -->Options --> complément --> complément solver)) (d'après une méthode proposée par mapomme là ), donc sans macro.


@ plus