XL 2010 sommes des elements du tableau par vba

[MAN]

bonjour le forum. j'ai montableau cis joint.
je voudrai un code vba qui me permette de filtrer et de somme autonatiquement les écarts et les sanctions par gérants dans les cellules A28 A l'infini s'il y a baucoup de gerants.
excusez. je précise que les operations doivent se faire sur la meme feuille.
merci d'avance

 

[phlaurent55]

Bonjour Man,

un essai avec un TCD en pièce jointe

à+
Philippe

 

[phlaurent55]

Re,

ou ceci pour une actualisation automatique du TCD

à+
Philippe

 

[Dranreb]

Boujour.
Avec GigIdx.xlam en référence :

Sub Sommer()
Dim T(1 To 1000, 1 To 3), Nom As SsGr, L As Long
For Each Nom In Gigogne(Feuil1.[A3:D25], 2)
   L = L + 1
   T(L, 1) = Nom.Id
   T(L, 2) = Nom.Somme(3)
   T(L, 3) = Nom.Somme(4): Next Nom
Feuil1.[A28].Resize(1000, 3).Value = T
End Sub

 

[MAN]

Bonjour le forum. j'ai éssayé la solution de Drareb avec le code,
Sub Sommer()
Dim T(1 To 1000, 1 To 3), Nom As SsGr, L As Long
For Each Nom In Gigogne(Feuil1.[A3😀25], 2)
L = L + 1
T(L, 1) = Nom.Id
T(L, 2) = Nom.Somme(3)
T(L, 3) = Nom.Somme(4): Next Nom
Feuil1.[A28].Resize(1000, 3).Value = T
End Subça ne marche pas. j'ai aussi essayé celle de Phorent 55 le TCD automatique affiche erreur
peut etre
Option Explicit

Sub ecartsJJ()
Dim i As Long
Feuil2.Cells.ClearContents
[a1] = "Noms": [b1] = "Ecarts": [c1] = "sanctions"
[Noms].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Feuil2.Range("A2"), Unique:=True
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2) = Evaluate("=SUMPRODUCT((Noms=""" & Cells(i, 1) & """)*dettes)")
Next
End Sub
le probleme c'est que je n'arrive pas a faire executer le code sur la meme page que le tableau

 

[Dranreb]

Bonjour.
Dans le classeur joint il n'y a ni ma macro ni la référence à GigIdx cochée.
Donc je ne peux pas voir ce qui ne va pas.

 

[MAN]

pour quelque chose de simple, il me faut simplifier ce tableau au point que toute machine puisse le faire fonctionner. c'est pourquoi je ne soihaite ni ajouter les references ou modules supplémentaire a celui ci