addition conditionnelle en VBA

Version imprimable

22/08/2012, 19h16
drabmol

addition conditionnelle en VBA

Bonsoir,

j ai une table avec 3 colonnes ( en fait plus, mais je simplifie):
-colonne A: c est des categories. Pomme/ Banane/Haricot....
-colonne B: la qte de chacune des categories pour Zone1.
-colonne C: la qte de chacune des categories pour Zone2.

Colonne B et C ont des nombres de lignes qui vont varier chaque mois. Mais ils seront le meme pour B et C. Dans le colonnes B et C, des fois j ai desnombres, des fois des cellules vides.
Je cherche a programmer en VBA, la detection de la presence de la categorie ( pomme par exemple) dans la colonne A et de sommer dasn une cellule particuliere les cellules sur la meme ligne que pomme dasn les colonnes B et C2.

Cela doit etre tres simple pour vous j imagine...mais je me casse la tete.
merci de votre aide.
22/08/2012, 19h31
Supermichou

pourquoi passer par du vba ?

si on prend D1 = pomme

Code:

=somme.si(A$1:A$100;$D1;B$1:B$100)+somme.si(A$1:A$100;$D$1;C$1:C$100)

sinon, un tableau croisé dynamique, c'est encore plus simple.

Bonsoir,

Si tu tiens vraiment à passer par du VBA, tu peux essayer cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub drabmob()
Dim i As Integer
'Parcours la colonne A jusqu'à la dernière cellule non vide
For i = 1 To Range("A65536").End(xlUp).Row
    'teste si la contenu de la cellule de la colonne A n'est pas vide
    If Range("A" & i).Value <> "" Then
        'Additionne en colonne D, les cellules en C & B sur la même ligne
        Range("D" & i).Value = Range("B" & i).Value + Range("C" & i).Value
    End If
Next i
End Sub

Pour une même ligne, si un élément est présent en colonne A, alors en colonne D apparaît l'addition de B et C.

Bertrand