Discussion :

[Naoned005]

Bonjour j'ai besoin d'un petit conseil.

J'aimerais calculer la quantité (d'actions) marquée dans une colonne après plusieurs sélection (faite avec if then).

Voici par exemple pour la première ligne la quantité d'action(1000) Total acheté pour le fond Financiere le 12 avril 2012. Mon objectif est un code VBA qui calcule toutes les actions Total achetées pour Financiere le 12 avril 2012. Dans mon exemple 2000.

date	        fonds	     Actions acheté quantité d'action
12-avr-12	Financiere	Total	     1000
12-avr-12	Bellancourt	Axa	    9
12-avr-12	Bellancourt	Axa	    8
12-avr-12	Financiere	Axa	    7
12-avr-12	Bellancourt	Axa	    4
12-avr-12	Bellancourt	Axa	    5
12-avr-12	Financiere	Axa	    6
12-avr-12	Bellancourt	Axa	    3
12-avr-12	Bellancourt	Total	     2
12-avr-12	Financiere	Axa	    1
12-avr-12	Bellancourt	Axa	    2
12-avr-12	Financiere	Axa	    2
12-avr-12	Bellancourt	Axa	    3
12-avr-12	Bellancourt	Axa	    5
12-avr-12	Financiere	Axa	    4
12-avr-12	Bellancourt	Axa	     4
12-avr-12	Financiere	Axa	      7
12-avr-12	Bellancourt	Total	     8
12-avr-12	Bellancourt	Axa	     69
12-avr-12	Bellancourt	Axa	     5
12-avr-12	Bellancourt	Axa	     54
12-avr-12	Financiere	Axa	     4
12-avr-12	Bellancourt	Axa	      5
12-avr-12	Bellancourt	Axa	     56
12-avr-12	Financiere	Total	   1000

Pour l'instant mon code est

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
 
Sub quantity()
 
For i = 2 To i = 26
 
 
 
If Cells.Value(i, A) = "12/04/2012" Then
 
    If Cells.Value(i, B) = "Financiere" Then
 
 
       If Cells.Value(i, C) = "Total" Then
 
Cells.Select(i,D)
 
       Sum (Cells.Select)
 
End Sub

Il y a surement bcp de faute mais je ne vois pas


Merci

[Jean-Philippe André]

salut,
quelques lectures par item :

1/ les boucles if
http://bidou.developpez.com/article/VBA/ page 42
2/ la syntaxe pour l'objet Cells()
même lien, page 143
3/syntaxe des dates
même lien, page 55

[Naoned005]

Voila mon code. Je lis ce que tu m'a envoyé et je le reprend. Merci

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
Sub quantity()
 
For i = 2 To i = 26
 
 
 
If Cells(i, 1).Value = "12/04/2012" Then
 
    If Cells(i, 2).Value = "Financiere" Then
 
 
       If Cells(i, 3).Value = "Total" Then
 
       Cells(i, 4).Select
 
           Sum (Cells(i, 4).Select)
 
 
 
End If
End If
End If
 
Next
 
 
 
End Sub

[casefayere]

Bonsoir,
sur quelle version travailles-tu, à partir de 2007, tu peux utiliser :

Code :

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

1
2
3
Dim dt As Date
dt = "12/04/2012"
MsgBox WorksheetFunction.SumIfs(Range("D2:D26"), Range("A2:A26"), dt, Range("B2:B26"), "Financiere", Range("C2:C26"), "Total")

[Naoned005]

merci

J'utilise 2003

[casefayere]

Je me suis trompé de post et mets la réponse au bon endroit :

essayes avec ce code

Code :

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

1
2
3
Sub essai()
MsgBox [SumProduct(($A$2:$A$26=$A$2)*($B$2:$B$26=$B$2)*($C$2:$C$26=$C$2)*($D$2:$D$26))]
End Sub