Discussion :

[NewYork]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[mercatog]

La fonction Excel SOMMEPROD ne te va pas?

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

Edit: Désolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NewYork]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Sans vba et directement par formule sur ta feuille avec formule

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

Ou avec vba mais en appliquant la fonction sommeprod

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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