somme cellule selectionnées VBA

Bonjour j'ai besoin d'un petit conseil. :ccool:

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:

---

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 :cry:


Merci

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

:ccool:

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

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

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

---

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

Code:

---

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")

---

merci

J'utilise 2003 :)

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

essayes avec ce code

Code:

---

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

---