perdu 7 cheques dans liste 42 cheques

[myophil]

salut,

est il possible de trouver une macro qui me permette de trouver parmis une liste de 42 montants (de chèque) une serie de 7 montants equivalents à un certain montant.

exemple pour etre precis:

je cherche suite à la perte par une banque, 7 cheques correspondant à un montant de 730.50 euros et j'ai une liste de 42 cheques de 15 euros à 300 euros.
donc la somme de 7 cheques doit faire 730.50 euros , mais lesquels ?

si qqun à une solution merci d'avance

a+ myophil

 

[sam]

salut,

l'outil solveur peu résoudre ton problème.

Dans le fichier joint, j'ai fait un exemple

(j'ai mis des montants de 1 à 10 et je lui demande de me trouver une combinaison qui et égale à 20)

si ce n'est pas clair, demandes


a+ sam

 

[PhiBou]

Salut myophil, sam, le Forum

Pour un cas ponctuel comme celui-ci, je ne m'embête pas
la macro bête et méchante...
Les 42 chèques sont dans la colonne A. Les résultats (si plusieurs possibilités) s'afficheront dans les colonnes C et +

Sub Sept_Chèques()
Dim Montant(42)
Cas = 3
For i = 1 To 42
Montant(i) = Cells(i, 1)
Next i
For i1 = 1 To 42
For i2 = i1 + 1 To 42
For i3 = i2 + 1 To 42
For i4 = i3 + 1 To 42
For i5 = i4 + 1 To 42
For i6 = i5 + 1 To 42
For i7 = i6 + 1 To 42
Som = Montant(i1) + Montant(i2) + Montant(i3) + Montant(i4) + Montant(i5) + Montant(i6) + Montant(i7)
If Som = 730.5 Then
Cells(1, Cas) = Montant(i1)
Cells(2, Cas) = Montant(i2)
Cells(3, Cas) = Montant(i3)
Cells(4, Cas) = Montant(i4)
Cells(5, Cas) = Montant(i5)
Cells(6, Cas) = Montant(i6)
Cells(7, Cas) = Montant(i7)
Cas = Cas + 1
End If
Next i7
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
End Sub

Bonne journée

PhiBou

 

[C@thy]

T'as essayé données filtre?

 

[Ti]

Voici une extrapolation du problème de départ, qui permet de calculer le nombre de solutions à K éléments dans une liste de N éléments.

Comme cet algo est tiré d'un autre algo permettant de calculer toutes les combinaisons possibles à K éléments parmi N éléments, j'ai joint aussi ce dernier en l'illustrant d'un classique tirage de loto.

ça permet d'ailleurs immédiatement de voir combien sont ténues les chances de gain !

 

[myophil]

merci à tous

grace à vous j'ai pu retrouver les 7 cheques.

je vais donc pouvoir faire des recherches auprès de ma banque

merci

a+ myophil

 

[JULIAM92]

Re : perdu 7 cheques dans liste 42 cheques

Exactement ce que je cherchais !
Le temps passe et les questions sont les mêmes
Trop top le forum !!!