Bonjour à tous,

Je souhaiterais faire un lettrage comptable sous excel.

Pour ceux qui ne savent pas ce qu'est un lettrage :
J'ai un virement global d'un client de 1457€, règlement qui paye x factures pour différentes agence.
Je dois trouver à quelles factures ou avoir correspondent ce règlement et prendre en compte le fait qu'il n'y ai pas de solutions.

J'ai commencé à coder mais ça ne marche pas tip top :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub lettrage()
Dim tablo() As Integer
Dim max As Integer
Dim val As Integer
max = Range("a65536").End(xlUp).Row
val_cherche = Range("c5")
ReDim tablo(1 To max)
For i = 1 To max
tablo(i) = Range("a" & i)
Next i
'fin remplissage tablo
'calcul par nivo
For nivo = 1 To UBound(tablo) - 1
    For l = 1 To UBound(tablo) 'prends en compte le terme de départ
        suiv = 0 'définit les termes suivants
       ' Do Until suiv > UBound(tablo) - 1
 
            val_inter = 0
            If val = val_cherche Then GoTo u
        '    suiv = suiv + 1
            'val_inter = tablo(l)
            For k = l To nivo
                val_inter = val_inter + tablo(k)
                'val = tablo(l) + tablo(suiv) ' Application.Sum(tablo(suiv) + tablo(max))
                ' MsgBox (SommeTableau(tablo))
                If k = nivo And l > 1 Then
                    val_inter = 0
                    For k2 = 1 To UBound(tablo)
                        val_inter = val_inter + tablo(k2 + 1)
                    Next k2
                End If
                Next k
            val = val_inter '- tablo(l)
        'Loop
 
    Next l
Next nivo
u:
    If val = val_cherche Then
    MsgBox "ok"
    Else
MsgBox "Pas de solution"
    End If
 
 
End Sub
Donc je me permets de solliciter votre aide.

Merci d'avance pour l'attention que vous porterez à mon problème.
Thomas