Calcul selon un tri et critères

Bonjour,

Je dois calculer une somme se rapprochant le plus d'une valeur déjà définie. La somme doit donc être > ou = à cette valeur.
La somme doit être calculé à partir de chiffre aléatoire qui doit être mis en ordre pour ne sélectionner que les valeurs les plus hautes qui auront comme somme > ou égale à cette dites valeur.

Dans l'exemple sur l'image, la valeur qu'il faut que je me rapproche est 388,773.
Je trie présentement les chiffres manuellement et je regardes quelle combinaison des chiffres les plus élevés me donne une valeur plus grande ou égale à cette somme, soit celle = à 396,82 dans ce cas-ci.

Avez-vous une formule quelconque que je pourrais appliquer pour que cette analyse soit fait automatiquement?

MERCI infiniment de votre temps =)

Salut Myridmm,

Plutôt qu'une photo, envoie un fichier que nous n'ayons pas à reproduire tes données !

Pas bien compris l'intérêt du calcul en colonne [E:E]...

Un double-clic sur la feuille démarre la macro.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim dbPlus#, dbBase#
'
Cancel = True
[D3:E24] = ""
[D3:E24].Interior.Color = xlNone
Range("C3:C23").Value = Range("B3:B23").Value
Range("C3:C23").Sort key1:=[C3], order1:=xlAscending, Orientation:=xlByRows
'
dbBase = [B25]
For x = 22 To 3 Step -1
    If [D24] = "" Then _
        dbPlus = WorksheetFunction.Sum(Range("C" & x & ":C23")): _
        If dbPlus >= dbBase Then _
            [D24] = dbPlus: _
            [E24] = WorksheetFunction.Sum(Range("C" & x + 1 & ":C23")): _
            Range("D" & x & ":D23").Value = Range("C" & x & ":C23").Value: _
            Range("E" & x + 1 & ":E23").Value = Range("C" & x + 1 & ":C23").Value: _
            Range("D24").Interior.Color = RGB(255, 190, 0): _
            Exit For
Next
'
End Sub

A+

C'est incroyable, merci!
J'essaie le tout vendredi =)

Et promis, je joindrai un fichier la prochaine fois!