données dans un autre fichier
Le
CLAUDE-VARLET
Bonjour,
Je saisi dans un journal des mouvements bancaires, je voudrai que ces
mouvements se reportent dans un fichier rapprochement en tenant compte des
écritures existantes par exemple
dans le journal
date compte debit credit libe
29/11/05 512 10 00006
à chaque fois que l'on rencontre 512 le montant debit ou credit se reporte
dans rapprochement avec la date et le libelle
Merci
Je saisi dans un journal des mouvements bancaires, je voudrai que ces
mouvements se reportent dans un fichier rapprochement en tenant compte des
écritures existantes par exemple
dans le journal
date compte debit credit libe
29/11/05 512 10 00006
à chaque fois que l'on rencontre 512 le montant debit ou credit se reporte
dans rapprochement avec la date et le libelle
Merci
Poser une question
En supposant que les deux classeurs aient la même structure :
1 ligne de titre en ligne 1 avec date, Compte, débit, crédit, libe en
colonne A, B, C, D et E.
Les lignes copiées du classeur Journal.xls au classeur Rapprochement.xls
sont supprimées :
Sub test()
Dim Ligne As Long, Ctr As Long
On Error Resume Next
Workbooks.Open "Rapprochement.xls"
On Error GoTo 0
Ctr = 2
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks("Journal.xls").Activate
Do While Range("A" & Ctr).Value <> ""
If Range("A" & Ctr).Offset(0, 1).Value = 512 Then
Range("A" & Ctr).EntireRow.Copy _
Workbooks("Rapprochement.xls").Sheets("Feuil1").Range("A" &
Ligne)
Ligne = Ligne + 1
Range("A" & Ctr).EntireRow.Delete
Ctr = Ctr - 1
End If
Ctr = Ctr + 1
Loop
End Sub
Cordialement.
Daniel
"CLAUDE-VARLET" 43a5a875$0$21305$