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