XL 2013 SommeProd en mode Function

GADENSEB · 14 Décembre 2016

Bonjour Le Forum
Pour le fichier suivant je souhaiterais faire des sommeprod en version fonction
mais j'ai un #Valeur ....

Code:

Function SumProd()
    Dim Ws As Worksheet
    'Définit une variable qui va représenter une cellule
    Dim Cell As Rang

For Each Cell In Ws.Range("B6:B10")  'cellule vide dans la colonne -2
Toto = "=SUMPRODUCT((LIGNE=RC[-2])*(FUTUR=""non"")*(BQ=""oui"")*(DEBITCREDIT))"
calcul = Toto
Next Cell
End Function

qqn aurait une idée ?
Bonne am
Seb

mutzik · 14 Décembre 2016

bonjour,

pourquoi utiliser une fonction, cela alourdit encore plus le fichier et n'apporte rien

GADENSEB · 14 Décembre 2016

En fait j'ai une 40 somme prod à la suite... je me disais que cela allégerai le temps de calcul ..

gosselien · 14 Décembre 2016

Bonjour,

si tu as 50.000 lignes ça vaut peut être la peine, sinon...

P.

GADENSEB · 14 Décembre 2016

Je suis à 10000 lignes sur ma BDD

GADENSEB · 16 Décembre 2016

Re !!
du coup est-ce que tu as une idée ?
Passer par des tableaux ubound et lBound ?

Bonne journée

gosselien · 16 Décembre 2016

Bonjour,

à moins d'avoir un vieux pc, les sommeprod doivent convenir; bien sûr un vba ira plus vite ; il y a des gens ici capables de t'aider sur le sujet
et il y a les TCD aussi
P.

Dranreb · 16 Décembre 2016

Bonjour.
Voulez vous essayer en explorant une collection renvoyée par ma fonction GroupOrg ?

Dranreb · 16 Décembre 2016

Obtenu ceci :
Avec ce code :

VB:

Sub RapportSynthèse()
Dim Données As Collection, LIGNE As SsGroup, FUTUR As SsGroup, BQ As SsGroup, Détail, _
   TotG As Currency, TotFut As Currency, TotBQ As Currency, TotLig As Currency, T(1 To 500, 1 To 4), L As Long
Set Données = GroupOrg(Feuil2.[A2:N2], 10, 11, 9)
For Each FUTUR In Données
   L = L + 1
   T(L, 1) = "Futur=" & FUTUR.Id
   TotFut = 0
   For Each BQ In FUTUR.Contenu
      L = L + 1
      T(L, 2) = "BQ=" & BQ.Id
      TotBQ = 0
      For Each LIGNE In BQ.Contenu
         L = L + 1
         T(L, 3) = LIGNE.Id
         TotLig = 0
         For Each Détail In LIGNE.Contenu
            TotLig = TotLig + Détail(14): Next Détail
         T(L, 4) = TotLig:
         TotBQ = TotBQ + TotLig: Next LIGNE
      If BQ.Count > 1 Then L = L + 1: T(L, 2) = "    — Total BQ=" & BQ.Id: T(L, 4) = TotBQ
      TotFut = TotFut + TotBQ: Next BQ
   If FUTUR.Count > 1 Then L = L + 1: T(L, 1) = "    — Total Futur=" & FUTUR.Id: T(L, 4) = TotFut
   TotG = TotG + TotFut: Next FUTUR
L = L + 1: T(L, 1) = "Total général": T(L, 4) = TotG
Feuil1.[B3].Resize(500, 4).Value = T
End Sub

XL 2013 SommeProd en mode Function

GADENSEB

XLDnaute Impliqué

Pièces jointes

mutzik

XLDnaute Barbatruc

GADENSEB

XLDnaute Impliqué

gosselien

XLDnaute Barbatruc

GADENSEB

XLDnaute Impliqué

GADENSEB

XLDnaute Impliqué

gosselien

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Discussions similaires