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