Microsoft 365 Faire une somme des données par investisseur

[liod21]

Bonjour à tous,

je veux faire la somme de mes lignes qui ont le même user. En gros, j'ai 2 feuilles "Summary_final " et "Summary" et je veux transférer les données de Summary dans Summary_final. Par exemple, le User 24 c'est facile car il a acheté que un seul produit mais le user 104 a acheté 4 produits différents et donc j'ai besoin de la somme de tous ces produits ( de la colonne C à H) et je veux les mettre alors dans mon user 104 de mon autre feuille. Il faut alors passer de la capture d'écran "feuille de base " à "ex_corrige".

Merci 🙂

 

[chris]

Multipost 👿

 

[liod21]

Voici les fichiers avec l'exemple et le corrigé.

 

[Robert]

Re,

Ha voilà le fameux multipost. Chris a raison, tu risques de t'y perdre toi même avec plusieurs fils pour le même problème. Je t'ai répondu dans l'autre fil...

 

[job75]

Bonjour à tous,

Pas besoin de VBA, voyez le fichier joint.

Formule matricielle en A2, à tirer vers le bas :

=SIERREUR(INDEX(SUMMARY!A:A;PETITE.VALEUR(SI((SUMMARY!A$2:A$100<>"")*NON(NB.SI(A$1:A1;SUMMARY!A$2:A$100));LIGNE(SUMMARY!A$2:A$100));1));"")

Formule normale en B2 à tirer à droite et vers le bas :

=SI($A2="";"";SOMME.SI(SUMMARY!$A$2:$A$100;$A2;SUMMARY!C$2:C$100))

Adapter au besoin la limite 100 dans les formules.

A+

 

[job75]

Si l'on tient au VBA on peut utiliser la commande Consolider, le code de la 1ère feuille :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
[A1].CurrentRegion.Delete xlUp 'RAZ
With Sheets("SUMMARY").[A1].CurrentRegion
    [A1].Consolidate Sources:=.Address(, , xlR1C1, External:=True), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False 'commande Consolider
    Columns(3).Resize(, .Columns.Count - 2).Cut [B1] 'couper-coller pour supprimer la 2ème colonne
End With
[A1] = "User"
End Sub

La macro se déclenche automatiquement quand on active la feuille.

A+