XL 2010 sommes des elements du tableau par vba

MAN

XLDnaute Occasionnel
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
 

Pièces jointes

  • mannnn.xlsx
    9.6 KB · Affichages: 26

Dranreb

XLDnaute Barbatruc
Boujour.
Avec GigIdx.xlam en référence :
VB:
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
 

Pièces jointes

  • GigIdx.xlsm
    67.9 KB · Affichages: 29

MAN

XLDnaute Occasionnel
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: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ç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
 

Pièces jointes

  • man.xlsm
    18.4 KB · Affichages: 23

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal