lettrage compte compable

[SAHBI]

bonjour
j'ai un macro de lettrage que je veux l'adapter comme suit:
soit deux colonnes a et b
dans la colonne A un chiffre ou montant
dans la colonne B plusieurs chiffres dont la somme de certain chiffres peuvent être égale a un chiffre de la colonne a
dans ce cas mettre zéro ces chiffres de la colonne a et b

Sub Lettrage()

Dim i As Integer
Dim j As Integer
Dim K As Integer
Dim Deb As String * 1
Dim Cre As String * 1
Dim Fac As String * 1
Dim DL As Integer

i = 2
j = 2
K = 0
Deb = InputBox("Introduire nom colonne debit :")
Cre = InputBox("Introduire nom colonne credit :")
Fac = InputBox("Introduire nom colonne facture :")
DL = CInt(InputBox("Introduire numero dernière ligne :"))

Do While i <= DL
j = 2
K = 0
Do While j <= DL And K = 0
If Range(Deb & i).Value = Range(Cre & j).Value And Range(Fac & i).Value = Range(Fac & j).Value Then
Range(Deb & i).Value = 0
Range(Cre & j).Value = 0
K = 1
End If
j = j + 1
Loop
i = i + 1
Loop

End Sub

merci

 

[Compte Supprimé 979]

Re : lettrage compte compable

Bonsoir SAHBI et bienvenue sur ce forum.

Ce qui serait souhaitable, c'est de nous mettre un fichier avec quelques données.

Une feuille avec ce que tu as, une autre ce que tu voudrais.

A+

 

[SAHBI]

Re : lettrage compte compable

Vous trouvez en pj le resultat du macro souhaité
et merci