données entre fichier

[JUDOKA]

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

 

[fred]

Je ne te suis pas tres bien.
A mon avis il te faut un compteur de ligne a traiter (nbval (x;x) pouis faire une boucle de traitement

Style
Sub mamacro ()
'Declarer la variable nombre de ligne a traité
Sheets ('traitement').select
Nbligne = Cells (1,'a')
Compteur = 1


While Compteur < nbligne +1
If cells(Compteur,x).value = '512' then
cells (y;y).value = cells (x,y).value
cells (y;Z).value = cells (x,Z).value
Compteur = Compteur + 1
Else
Compteur = compteur +1
End If
Wend
End sub


Wend

 

[Charly2]

Bonsoir Judoka et Fred,

Judoka, souhaites-tu une balance pour chaque compte ou désires-tu la limiter à quelques comptes ? Si oui pour la balance, places-tu tous les comptes dans la même feuille ?

Amicalement
Charly

PS : ce que tu demandes est rélisable par procédure événementielle, à condition de ne plus toucher aux écritures une fois enregistrées...