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 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
|
'Insertion d'une ligne totale par année
'***************************
Range("a1")
Cumulbrut=0
Solde3112=0
Do while activecell.value <>""
AnneeEnCours = Year (ActiveCell.Offset(0,10).Value
CumulBrut = CumulBrut + ActiveCell.Offset (0,6).Value
If ActiveCell.Value <> ActveCell.Offset (1,0).Value then
ActiveCell.EntireRow.Insert
Activecell.offset (1,0).select
End if
if year (ActiveCell.offset (0,4).Value = Year (ActiveCell.Offset (1,4).Value) Then
ActiveCell.offset (1,0).Select
else
'Calcul du solde de fin d'année
'**********************
if year(activecell.offset(1,3).value) = year(activecell.offset (0,4).value then
solde3112 = activecell.offset (1,1).value
else
solde3112 = 0
end if
activecell.offset (1,0).select
selection.entirerow.insert
selection.entirerow.insert
activecell.value= "cumul" &anneeEnCours
activecell.offset(0,1).value= solde3112
activecell.offset (0,6).value = cumul brut
activecell.offset(0,-6).insert
cumulbrut=0
activecell.offset (3,0).select
loop
voilà, je ne peux pas le copier coller de mon travail c'est sécurisé, donc j'ai recopié qu'une partie,
le (0,10) est enfaite le colonne ou se trouve un YEAR= pour n'avoir que l'année en colone K
le (0,4) donne la date sous format ??/??/???? en colone E
le (0,6) et le montant des interets en colone G
Je dois trouver une solution, et je serai vraiment enchanté que vous réussissiez à m'aider,
Je suis dispo, pour tous autre informations complémentaires
Merci d'avance.
Bone journée |
Partager