XL 2016 somme de plusieurs champs, dans plusieurs feuilles en fonction d'un critère

Virgin999 · 21 Mai 2021

Bonjour,
Je m'explique :
j'ai une feuille par jour pour de la facturation. Sur chacune de ces feuilles, figure le nom d'un titulaire (B2) et la somme calculée qui lui est dû (AB2).
Ex : Feuille J1 : titulaire A - Somme dû 10€
Feuille J2 : titulaire A - Somme dû 15€
Feuille J3 : titulaire B - Somme dû 10€
Feuille J4 : titulaire C - Somme dû 5€
Feuille J5 : titulaire B - Somme dû 10€

En feuille TOTAL : je souhaiterais faire la somme de tout ce qui est dû par titulaire, (en, recherchant dans toutes les feuilles qui est le titulaire et en cumulant les sommes qui lui sont dues)
Titulaire A Somme due : (10+15) 25€
Titulaire B Somme due : (10+10) 20€
Titulaire C : Somme due 5€

je précise que ce ne sont pas des tableaux..., mais sur chaque feuille, le titulaire et somme due sont tjrs dans les mêmes cellules.
la somme totale de toutes les feuilles, ca j'arrive à faire, mais c'est le cumul par titulaire que je n'arrive pas...je ne sais pas quelle(s )formule(s) utiliser.
est ce que c'est faisable sans passer par une Marco? quelle formule ?
merci de votre aide

job75 · 21 Mai 2021

Bonjour Virgin999, bienvenue sur XLD,

Sans macro on peut utiliser Power Query mais il faut connaître...

En VBA voyez le fichier joint et cette macro dans le code de la feuille "Total" :

VB:

Private Sub Worksheet_Activate()
Dim d As Object, w As Worksheet, x$
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
For Each w In Worksheets
    If LCase(w.Name) <> "total" Then
        x = Trim(w.Range("B2"))
        If x <> "" Then d(x) = d(x) + Val(Replace(w.Range("AB2"), ",", "."))
    End If
Next
'---restitution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [B2] '1ère cellule de destination, à adapter
    If d.Count Then
        .Resize(d.Count) = Application.Transpose(d.keys) 'Transpose est limitée à 65536 lignes
        .Offset(, 1).Resize(d.Count) = Application.Transpose(d.items)
    End If
    .Offset(d.Count).Resize(Rows.Count - d.Count - .Row + 1, 2).ClearContents 'RAZ en dessous
End With
End Sub

Elle se déclenche quand on active la feuille.

A+

R@chid · 21 Mai 2021

Bonjour et Bienvenu sur XLD,
Salut Job75,

sur le fichier de l'ami Job75, en C2 :

VB:

=SOMMEPROD(SOMME.SI(INDIRECT("J"&LIGNE($1:$5)&"!B2");B2;INDIRECT("J"&LIGNE($1:$5)&"!AB2")))

@ tirer vers le bas

Cordialement

Virgin999 · 21 Mai 2021

c'est parfait, merci bcp à vous deux, je vais adapter cela à mon fichier. Encore merci, je ne sais pas utiliser le VBA ! donc ca m'aide ;-)

Virgin999 · 21 Mai 2021

R@chid à dit:
Bonjour et Bienvenu sur XLD,
Salut Job75,

sur le fichier de l'ami Job75, en C2 :

VB:

=SOMMEPROD(SOMME.SI(INDIRECT("J"&LIGNE($1:$5)&"!B2");B2;INDIRECT("J"&LIGNE($1:$5)&"!AB2")))

@ tirer vers le bas

Cordialement

Merci, il faut donc que je reprenne la formule de @job75 + la vôtre? je ne suis vraiment pas douée, je n'arrive pas à adapter...je persiste.... merci

job75 · 21 Mai 2021

@Virgin999 utilisez l'une ou l'autre des solutions mais pas les 2 en même temps !

Salut R@chid, ta solution va bien pour remplir la colonne C mais pas pour la colonne B.

Peux-tu voir avec Power Query ?

Virgin999 · 21 Mai 2021

job75 à dit:
@Virgin999 utilisez l'une ou l'autre des solutions mais pas les 2 en même temps !

Salut R@chid, ta solution va bien pour remplir la colonne C mais pas pour la colonne B.

Peux-tu voir avec Power Query ?

je viens d'adapter avec la macro, c'est bon. Par contre, pour l'autre solution, ca fonctionne que pour 2 titulaires uniquement. ca ne fait pas le cumul.
Merci

job75 · 21 Mai 2021

La solution de R@chid va bien mais il faut renseigner les cellules B2 B3 B4 manuellement.

R@chid · 21 Mai 2021

Re,
Salut Job75
Avec Power Query,

Voir PJ

Cordialement

job75 · 21 Mai 2021

Ce serait quand même plus compréhensible R@chid si tu utilisais mon fichier

R@chid · 21 Mai 2021

Re,

job75 à dit:
Ce serait quand même plus compréhensible R@chid si tu utilisais mon fichier

Sur ton fichier tu n'as pas utilisé des noms de champs ou des tableaux structurés, pour que l'on puisse l'utiliser, il faut ouvrir un autre classeur et importer les données du tien

R@chid · 21 Mai 2021

Re,

Virgin999 à dit:
Merci, il faut donc que je reprenne la formule de @job75 + la vôtre? je ne suis vraiment pas douée, je n'arrive pas à adapter...je persiste.... merci

Tu peux taper les noms des onglets à prendre en compte dans une plage quelconque et appliquer la formule.

XL 2016 somme de plusieurs champs, dans plusieurs feuilles en fonction d'un critère

Virgin999

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

R@chid

XLDnaute Barbatruc

Virgin999

XLDnaute Nouveau

Virgin999

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Virgin999

XLDnaute Nouveau

job75

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Pièces jointes

Discussions similaires