Bonjour Dranreb,
Bonjour le fil, et le Forum,
Maintenant que j'ai trouvé comment compiler tableaux (2 onglets) avec 4 col de références et 3 col de montants.
1- Comment rajouter 3 autres colonnes qui sont la différence des montants de chaque colonne des années N et N-1 ?
2- J'ai voulu rajouter 1 col par année pour le nombre de rubrique par OP/DP/SIT/RUB
et ensuite rajouter 4 colonnes supplémentaire qui me donnent la différence par colonne des années N et N-1.
Pour rajouter une col par année : C = Détail(0) * 4 + 5
et dans la boucle For Each Détail In RUB.Co j'ai rajouté
T(L, C + 3) = RUB.Count: Next Détail, RUB, SIT, DP, OP
RUB.count me donne un nombre très différent du nombre de lignes réel
J'ai fait beaucoup d'essais mais aucun résultat correct.
Merci de ton aide
KIM
Sub CompilTab()
Dim DP As SsGr, SIT As SsGr, OP As SsGr, RUB As SsGr, Détail, T(1 To 100, 1 To 15), L As Long, C As Long
For Each OP In Gigogne(TableUnique(PlgUti(Feuil2.[A2]), PlgUti(Feuil3.[A2])), 3, 1, 2, 4)
For Each DP In OP.Co
For Each SIT In DP.Co
For Each RUB In SIT.Co
' For Each RUB In SIT.Co
L = L + 1
T(L, 1) = OP.Id
T(L, 2) = DP.Id
T(L, 3) = SIT.Id
T(L, 4) = RUB.Id
For Each Détail In RUB.Co
'1ère source : Détail(0) = 0 —› C = 0 * 3 + 5 = 5 soit la colonne E, "Montant N 1"
'2nde source: Détail(0) = 1 —› C = 1 * 3 + 5 = 8 soit la colonne H, "Montant N-1 1"
C = Détail(0) * 4 + 5
T(L, C) = T(L, C) + Détail(5)
T(L, C + 1) = T(L, C + 1) + Détail(6)
T(L, C + 2) = T(L, C + 2) + Détail(7)
T(L, C + 3) = RUB.Count: Next Détail, RUB, SIT, DP, OP
Feuil1.[A5].Resize(100, 15).Value = T
End Sub