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

[Virgin999]

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]

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" :

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]

Bonjour et Bienvenu sur XLD,
Salut Job75,

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

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

@ tirer vers le bas



Cordialement

 

[Virgin999]

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]

Bonjour et Bienvenu sur XLD,
Salut Job75,

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

=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]

@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]

@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]

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

 

[R@chid]

Re,
Salut Job75
Avec Power Query,

Voir PJ


Cordialement

 

[job75]

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

 

[R@chid]

Re,

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]

Re,

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.