Discussion :

[mrmouche30]

Bonjour à tous,

Je cherche à automatiser une reconciliation entre 2 sources de données.

J'ai déjà fait pas mal de choses sur mon code, mais là je bloque sur un cas ou j'aimerai créer des sous-totaux puis les copier pour les coller sur un autre onglet excel.


Alors voilà en gros, mes 3 premières colonnes sont :

Agreement, Sec ID, Amount

J'ai pu ranger mon fichier en classant par odre alphabetique en fonction de la colonne Agreement.

Je voudrais créer des sous totaux de la colonne "Amount" à chaque fois que l'Agreement change.


Ensuite idéalement je voudrai pouvoir copier coller ces sous-totaux dans un autre onglet.

Merci d'avance,

Mrmouche30

[Marc-L]

Bonjour,

cette fonctionnalité existant déjà sous Excel, activer l'Enregistreur de macro puis opérer manuellement :
une base de code est ainsi générée !

Voir aussi la fonction de feuille de calculs SOUS.TOTAL dans l'aide d'Excel
et la méthode Range.Subtotal dans l'aide VBA …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Igloobel]

Bonjour,

Dans ton autre onglet tu ne pourrais pas mettre un TCD ça se met à jour très facilement et c'est beaucoup plus simple

[mrmouche30]

Bonjour,

cette fonctionnalité existant déjà sous Excel, activer l'Enregistreur de macro puis opérer manuellement :
une base de code est ainsi générée !

Voir aussi la fonction de feuille de calculs SOUS.TOTAL dans l'aide d'Excel
et la méthode Range.Subtotal dans l'aide VBA …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour Marc,

Merci pour ta réponse, j'ai pu réussir mon code pour créer le sub total

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  Worksheets("Collateral").Activate
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6)

Au final j'ai quelques colonnes en plus, et j'ai préféré obtenir mon sous total à la colonne 6 pour chaque changement de la colonne 1.

J'aimerai maintenant pouvoir copier chacun de mes soustotaux dans une autre feuille, de façon a les avoir dans une colonne et pouvoir réconcilier avec une autre source de données.

Je me pose peut être la questions si c'est possible de créer une colonne 7, d'écrire les sous-totaux de la colonne 6 dans la colonne 7, histoire de pouvoir copier cette colonne 7, de supprimer les lignes vides et d'avoir ma colonne comme je le veux pour pouvoir lancer ma réconciliation

[Marc-L]

Normalement ils sont repérables par un nom …

[mrmouche30]

Tu n'as pas tort, par contre étant donné que le nombre d'agreements varient dans le temps, cela serait mieux de rechercher dans la colonne 1 les lignes ou y a un mot "Total" et ensuite prendre la valeur de la colonne 6.

Je vais voir ce que je peux faire

[mrmouche30]

Je suis en train de jongler sur un bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Sheets("Collateral").Columns("A").Find _
What:="Total", Select.cells(.Column.Count, 6).End(x1Up).Row)).Copy Sheets ("Result").Cells(1)

Il ne fonctionne pas pour le moment, mais je me demande juste si je cherche dans la bonne direction ou si je m'embourbe.

L'idée étant de chercher dans la colonne A un mot "Total" puis de copier le contenu de la colonne 6 et la copier dans la Sheets "Result"

[Menhir]

Alors voilà en gros, mes 3 premières colonnes sont :

Agreement, Sec ID, Amount

J'ai pu ranger mon fichier en classant par odre alphabetique en fonction de la colonne Agreement.
Je voudrais créer des sous totaux de la colonne "Amount" à chaque fois que l'Agreement change.

Ensuite idéalement je voudrai pouvoir copier coller ces sous-totaux dans un autre onglet.

Tu copies ta colonne Agreement dans un autre onglets.
Tu en fais une liste sans doublons avec RemoveDuplicates : https://msdn.microsoft.com/fr-fr/lib.../ff193823.aspx
Tu scrutes cette nouvelle ligne avec une boucle For To et, pour chaque élément, tu fais un Sum.if en utilisant WorksheetFunction pour avoir la somme des montants de cet Agreement.
https://msdn.microsoft.com/library/f...ice.15%29.aspx

Ca doit pouvoir se faire environ en 5 lignes (6 lignes avec les déclarations) et pas besoin de classement préalable.

[mrmouche30]

Tu copies ta colonne Agreement dans un autre onglets.
Tu en fais une liste sans doublons avec RemoveDuplicates : https://msdn.microsoft.com/fr-fr/lib.../ff193823.aspx
Tu scrutes cette nouvelle ligne avec une boucle For To et, pour chaque élément, tu fais un Sum.if en utilisant WorksheetFunction pour avoir la somme des montants de cet Agreement.
https://msdn.microsoft.com/library/f...ice.15%29.aspx

Ca doit pouvoir se faire environ en 5 lignes (6 lignes avec les déclarations) et pas besoin de classement préalable.

Salut Mehnir,

Je vais essayer de tester ta boucle, voir si j'arrive à faire ce que tu me dis, ça pourrait bien m'aider dans ma situation