Somme.si en colonne en VBA

[peternewman007]

Bonjour,

Je cherche un moyen de faire des somme.si en vba par colonne.
Je joins un tableau exemple en annexe mais le tableau final comporte 96 personnes et 3851 de plage d'addition.

Pourriez-vous m'aider svp?

Merci d'avance,

Peter

 

[peternewman007]

Re : Somme.si en colonne en VBA

Merci mais ça ne fonctionne toujours pas 🙁

J'ai indiqué ce code dans le module 1 :

Function TotauxPers(ByVal Src As Range)
Dim Ts(), Pers As SsGroup, Ls&, Détail, dC&, C&
With Application.Caller
ReDim Ts(1 To .Rows.Count, 1 To .Columns.Count)
dC = .Column - 1: End With
For Each Pers In GroupOrg(Src, 1)
Ls = Ls + 1: Ts(Ls, 1) = "Total " & Pers.Id
For Each Détail In Pers.Contenu
For C = 2 To UBound(Ts, 2): Ts(Ls, C) = Ts(Ls, C) + Détail(C + dC): Next C, Détail, Pers
While Ls < UBound(Ts): Ls = Ls + 1: For C = 1 To UBound(Ts, 2): Ts(Ls, C) = "": Next C: Wend
TotauxPers = Ts
End Function

Et il m'affiche ce souci :


Merci d'avance,

Peter

 

[Dranreb]

Re : Somme.si en colonne en VBA

La fonction ne doit plus être invoquée à partir de la colonne A, mais à partir de la colonne qui précède la 1ère à totaliser : la G en l'occurrence. Si ça n'allait pas, il faudrait indiquer plus de renseignements à la fonction pour cerner la partie à totaliser.

 

[Dranreb]

Re : Somme.si en colonne en VBA

Veiller aussi à ce que les cellules à totaliser contiennent des nombres ou au pire soient vides. Sur le classeur en lien j'ai des #N/A en AN:AO. Si j’étends la formule jusqu'à la colonne AO j'ai effectivement ce résultat.

À moins de rajouter un test If IsNumeric(Détail(C + dC)) Then Ts(Ls, C) = Ts(Ls, C) + Détail(C + dC)
On a donc :

Function TotauxPers(ByVal Src As Range)
Dim Ts(), Pers As SsGroup, Ls&, Détail, dC&, C&
With Application.Caller
   ReDim Ts(1 To .Rows.Count, 1 To .Columns.Count)
   dC = .Column - 1: End With
For Each Pers In GroupOrg(Src, 1)
   Ls = Ls + 1: Ts(Ls, 1) = "Total " & Pers.Id
   For Each Détail In Pers.Contenu
      For C = 2 To UBound(Ts, 2)
         If IsNumeric(Détail(C + dC)) Then Ts(Ls, C) = Ts(Ls, C) + Détail(C + dC)
         Next C, Détail, Pers
While Ls < UBound(Ts): Ls = Ls + 1: For C = 1 To UBound(Ts, 2): Ts(Ls, C) = "": Next C: Wend
TotauxPers = Ts
End Function

 

[peternewman007]

Re : Somme.si en colonne en VBA

Merci beaucoup, cela fonctionne pour moi maintenant avec le nom de la personne en colonne A.
Il ne me reste plus qu'à trouvé comment évacué les 0 en trop (de la colonne B à G)..

Peter