Somme.si en colonne en VBA

peternewman007 · 6 Mars 2015

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 · 11 Mars 2015

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 · 11 Mars 2015

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 · 11 Mars 2015

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 :

VB:

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 · 11 Mars 2015

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

Somme.si en colonne en VBA

peternewman007

Guest

Pièces jointes

peternewman007

Guest

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

peternewman007

Guest

Discussions similaires

Somme.si en colonne en VBA

peternewman007

Guest

Pièces jointes

peternewman007

Guest

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

peternewman007

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency