Somme d'une colonne d'un array

Bonjour à tous,

J'ai un petit soucis qui doit etre très stupide, mais je ne m'en sort pas!
J'ai des données dans un array et j'aimerais faire la somme de la 3eme colonne de cet array. Comment dois je porcéder? Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub test()   Dim nbre As Double Dim i As Integer Dim y As Integer   nbre = Cells(Rows.Count, 1).End(xlUp).Row   For i = 1 To nbre   If Cells(i, 3) = "USD" Then   ReDim KD(nbre, 3)   KD(i, 1) = Cells(i, 2).Value KD(i, 2) = Cells(i, 4).Value KD(i, 3) = KD(i, 1) * KD(i, 2)   range("SOMME")= '?????'''''''     End If Next i   End Sub

---

Merci d'avance
Cordialement,

La fonction Excel SOMMEPROD ne te va pas?

Citation:

---

=SOMMEPROD((C1:C20="USD")*B1:B20*D1:d20)

---

Edit: Désolé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub test() Dim Nbre As Long, i As Long, k As Long Dim Kd() As Double, S As Double Dim Tb As Variant   With Sheets("xx") Nbre = .Cells(.Rows.Count, 1).End(xlUp).Row Tb = .Range("A1:D" & Nbre) For i = 1 To Nbre If Tb(i, 3) = "USD" Then k = k + 1 ReDim Preserve Kd(1 To 3, 1 To k) Kd(1, k) = Tb(i, 2) Kd(2, k) = Tb(i, 4) Kd(3, k) = Kd(1, k) * Kd(2, k) S = S + Kd(3, k) End If Next i .Range("Somme").Value = S End With End Sub

---

salut,

En fait ce code est une version simplifiée de mon fichier. La vrai macro prend en compte plusieurs fichiers différents et plusieurs chose entre en compte. Pour faire simple, tous les jours j'ai des flux qui sont + ou -. Ces flux correspondent aux produits d'un nombre de part * une valeur. Ainsi j'ai,

Code:

---

Col H (= nombre de part) * Col N (valeur) = prix (+/-)

---

Je cherche a indiquer dans une cell (ici range("somme")) la somme des produits. Au début j'ai donc fait un

Code:

---

application.worksheetfunction.sumproduct

---

mais plusieurs pb se posent:

(1) les flux positifs et négatifs doivent étre séparés,
(2) les flux peuvent être de différentes monnaies et doivent donc ête séparés,

ainsi je doit avoir dans mon fichier:

(1) Flux positif en EUR/USD/etc....
(2) Flux négatif en EUR/USD/etc...

J'ai donc séparer mon code par signe (positif vs négatif) et par monnaie.
Je pensais que passer par un array serait plus simple. Comme je suis encore débutant, je n'ai pas bcp de solution à mes pb.

PS: j'essaie ton code ;) merci

rebonjour,
j'ai adapté ton code à mon fichier et il marche parfaitement sauf sur un point. Quand je recopie le mm code pour modifier une variable (ici USD contre EUR), la macro ne me sort pas le bon calcul. voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Sub test2() Dim Nbre As Long, i As Long, k As Long Dim Kd() As Double, S As Double     With Sheets("Calcul") Nbre = .Cells(.Rows.Count, 1).End(xlUp).Row Tb = .Range("A1:Y" & Nbre) For i = 1 To Nbre If Tb(i, 16) = "EUR" Then If Tb(i, 11) > 0 Then k = k + 1 ReDim Preserve Kd(1 To 3, 1 To k) Kd(1, k) = Tb(i, 11) Kd(2, k) = Tb(i, 17) Kd(3, k) = Kd(1, k) * Kd(2, k) S = S + Kd(3, k) End If End If Next i .Range("BuyEUR").Value = S End With   With Sheets("Calcul") Nbre = .Cells(.Rows.Count, 1).End(xlUp).Row Tb = .Range("A1:Y" & Nbre) For i = 1 To Nbre If Tb(i, 16) = "USD" Then If Tb(i, 11) > 0 Then k = k + 1 ReDim Preserve Kd(1 To 3, 1 To k) Kd(1, k) = Tb(i, 11) Kd(2, k) = Tb(i, 17) Kd(3, k) = Kd(1, k) * Kd(2, k) S = S + Kd(3, k) End If End If Next i .Range("BuyUSD").Value = S End With   End Sub

---

saurais tu ou est ce que j'ai modifier qqch qu'il ne fallait pas?

Ok je pense avoir trouvé en fin de compte....j'ai change la variable S par une autre ;)

Sans vba et directement par formule sur ta feuille avec formule

Citation:

---

=SOMMEPROD((p1:p200="USD")*(k1:k200>0)*k1:k200*q1:q200)

---

Ou avec vba mais en appliquant la fonction sommeprod

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test2() Dim Nbre As Long   With Sheets("Calcul") Nbre = .Cells(.Rows.Count, 1).End(xlUp).Row With .Range("BuyEUR") .Formula = "=SUMPRODUCT((P1:P" & Nbre & "=""EUR"")*(K1:K" & Nbre & ">0)*K1:K" & Nbre & "*Q1:Q" & Nbre & ")" .Value = .Value End With With .Range("BuyUSD") .Formula = "=SUMPRODUCT((P1:P" & Nbre & "=""USD"")*(K1:K" & Nbre & ">0)*K1:K" & Nbre & "*Q1:Q" & Nbre & ")" .Value = .Value End With End With

---