[Toutes versions] Insertion d'une ligne sous-total à chaque changement d'année [Résolu]

[guillaume30c]

Bonjour,

J'utilise une macro afin de calculer un tableau d'amortissement et je n'arrive pas à écrire une macro afin d'insérer une ligne de sous total après chaque changement d'année.
Le problème étant que l'insertion de cette ligne doit prendre en considération le mois. Je m'explique. La toute première ligne de sous total ne s'insère pas obligatoirement toujours au même endroit, tout dépend du nombre de mois qui reste avant la fin de l'année.

Ex: Date de souscription: 02/05/2011 il reste 7 mois avant la fin de l'année ; l'insertion se fait donc à la 7ème ligne... 04/09/2011 il reste 3 mois avant la fin de l'année ; l'insertion se fait donc à la 3ème ligne etc ....

Vous trouverez en fichier joint le tableau d'amortissement pour une meilleur compréhension.

J'ai passé le week end dessus et je n'arrive toujours pas à trouver une solution qui marche, je commence à désespérer...

Merci beaucoup pour vos réponses!

projet.rar

[Daniel.C]

Bonjour, tu ajoutes une formule en colonne G :

Code :

1
2
3
Dim Plage As Range
Set Plage = Range([A10], Cells(Rows.Count, 1).End(xlUp))
Plage.Offset(, 6).FormulaR1C1 = "=Year(RC1)"

Tu inclues la colonne G dans le tableau servant aux sous-totaux et tu fais la rupture dessus.

[guillaume30c]

Merci pour cette réponse aussi rapide!
C'est une bonne idée de vouloir se référencer à la colonne G seulement je souhaite intégrer la ligne Total dans le même tableau et non sur un autre:

Période --- Capital Mensualité Intérêt Amortissement K restant

10/09/11 --- 50000 -- 500 --- 100 ---- 400 ------- 49600
10/10/11 --- 49600 -- 500 --- 90 ---- 410 ------- 49190
10/11/11 --- 49190 -- 500 --- 80 ---- 420 ------- 48810
10/12/11 --- 48810 -- 500 --- 70 ---- 430 ------- 48370

Total année 2011 --- 2000 --- 360 .......

10/01/12 etc....

C'est pas évident mais je pense qu'il doit bien y avoir une astuce!

Merci

[Daniel.C]

En suivant mon idée, le libellé peut se rajouter par macro :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub SousTotaux()
    Dim Plage As Range, c As Range
    Set Plage = Range([A9], Cells(Rows.Count, 1).End(xlUp))
    Plage.Offset(, 6).FormulaR1C1 = "=Year(RC1)"
    Columns(7).NumberFormat = "0000"
    [G9] = ""
    Set Plage = Plage.Resize(, 7)
    Plage.RemoveSubtotal
    Plage.Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(3, 4, 5), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Set Plage = Plage.Resize(Plage.Rows.Count + 2, 1)
    For Each c In Plage
        If Left(c.Offset(, 6).Value, 5) = "Total" Then
            c.Offset(, 6).Copy c
        End If
    Next c
    Columns(7).Hidden = True
End Sub

[guillaume30c]

Merci c exactement ce que je voulais!