quelles valeurs

[pott]

bonjour
je cherche une solution pour trouver les valeurs d'une liste donnée de factures par rapport un un encaissement.

merci

 

[JHA]

Bonjour à tous,

Un exemple par MFC ou par formule

JHA

 

[job75]

Bonjour pott, JHA,

Faites une recherche sur le forum avec les mots clés rapprochement comptable, vous trouverez des choses intéressantes.

Sur cet autre fil eriiiic vous a donné une solution, vous pourriez lui répondre non ?

A+

 

[pott]

merci pour ta solution sauf que l'encaissement est la somme de plusieurs facture

 

[job75]

Visiblement ce qu'on vous dit ne vous intéresse guère, tant pis pour vous 🙄

Dans le fichier joint je sors l'artillerie lourde puisque toutes les combinaisons sont étudiées pour un maximum de 7 factures :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cible, t, ub&, a&, n%, b&, c&, d&, e&, f&, g&
cible = [D2]
t = [B1].CurrentRegion.Resize(, 2) 'matrice, plus rapide
Application.EnableEvents = False 'désactive les évènements
[H2:XFD8].ClearContents 'RAZ
ub = UBound(t)
Select Case [F2]
    Case 1
        For a = 2 To ub
            If t(a, 1) = cible Then
                Range("H2").Offset(, n) = t(a, 1)
                n = n + 1
            End If
        Next a
    Case 2
        For a = 2 To ub - 1
            For b = a + 1 To ub
                If t(a, 1) + t(b, 1) = cible Then
                    Range("H2").Offset(, n) = t(a, 1)
                    Range("H3").Offset(, n) = t(b, 1)
                    n = n + 1
                End If
        Next b, a
    Case 3
        For a = 2 To ub - 2
            For b = a + 1 To ub - 1
                For c = b + 1 To ub
                    If t(a, 1) + t(b, 1) + t(c, 1) = cible Then
                        Range("H2").Offset(, n) = t(a, 1)
                        Range("H3").Offset(, n) = t(b, 1)
                        Range("H4").Offset(, n) = t(c, 1)
                        n = n + 1
                    End If
        Next c, b, a
    Case 4
        For a = 2 To ub - 3
            For b = a + 1 To ub - 2
                For c = b + 1 To ub - 1
                    For d = c + 1 To ub
                        If t(a, 1) + t(b, 1) + t(c, 1) + t(d, 1) = cible Then
                            Range("H2").Offset(, n) = t(a, 1)
                            Range("H3").Offset(, n) = t(b, 1)
                            Range("H4").Offset(, n) = t(c, 1)
                            Range("H5").Offset(, n) = t(d, 1)
                            n = n + 1
                        End If
        Next d, c, b, a
    Case 5
        For a = 2 To ub - 4
            For b = a + 1 To ub - 3
                For c = b + 1 To ub - 2
                    For d = c + 1 To ub - 1
                        For e = d + 1 To ub
                            If t(a, 1) + t(b, 1) + t(c, 1) + t(d, 1) + t(e, 1) = cible Then
                                Range("H2").Offset(, n) = t(a, 1)
                                Range("H3").Offset(, n) = t(b, 1)
                                Range("H4").Offset(, n) = t(c, 1)
                                Range("H5").Offset(, n) = t(d, 1)
                                Range("H6").Offset(, n) = t(e, 1)
                                n = n + 1
                            End If
        Next e, d, c, b, a
    Case 6
        For a = 2 To ub - 5
            For b = a + 1 To ub - 4
                For c = b + 1 To ub - 3
                    For d = c + 1 To ub - 2
                        For e = d + 1 To ub - 1
                            For f = e + 1 To ub
                                If t(a, 1) + t(b, 1) + t(c, 1) + t(d, 1) + t(e, 1) + t(f, 1) = cible Then
                                    Range("H2").Offset(, n) = t(a, 1)
                                    Range("H3").Offset(, n) = t(b, 1)
                                    Range("H4").Offset(, n) = t(c, 1)
                                    Range("H5").Offset(, n) = t(d, 1)
                                    Range("H6").Offset(, n) = t(e, 1)
                                    Range("H7").Offset(, n) = t(f, 1)
                                    n = n + 1
                                End If
        Next f, e, d, c, b, a
    Case 7
        For a = 2 To ub - 6
            For b = a + 1 To ub - 5
                For c = b + 1 To ub - 4
                    For d = c + 1 To ub - 3
                        For e = d + 1 To ub - 2
                            For f = e + 1 To ub - 1
                                For g = f + 1 To ub
                                    If t(a, 1) + t(b, 1) + t(c, 1) + t(d, 1) + t(e, 1) + t(f, 1) + t(g, 1) = cible Then
                                        Range("H2").Offset(, n) = t(a, 1)
                                        Range("H3").Offset(, n) = t(b, 1)
                                        Range("H4").Offset(, n) = t(c, 1)
                                        Range("H5").Offset(, n) = t(d, 1)
                                        Range("H6").Offset(, n) = t(e, 1)
                                        Range("H7").Offset(, n) = t(f, 1)
                                        Range("H8").Offset(, n) = t(g, 1)
                                        n = n + 1
                                    End If
        Next g, f, e, d, c, b, a

End Select
Application.EnableEvents = True 'réactive les évènements
End Sub

 

[eriiic]

Bonjour à tous,
Non, ça ne l'intéresse pas sur l'autre fil ;-)
eric