fonction somme si en vba

[chris]

Bonjour,
Comment intégrer dans un macro la fonction somme si ?

critères données
cellule A1 = x et cellule B1 = 3
cellule A2 = y et cellule B2 = 1
cellule A3 = x et cellule B3 = 5

J'aimerais que la formule soit insérée après mes données de la colonne "B" dont le nombre de lignes est variable et que si mon critère est "x", ma formule soit "B1 + B3".
j'espère avoir été suffisamment claire dans mes explications.
Merci d'avance

 

[G.David]

Salut
Perso je décomposerai comme suit
dans une cellule autre ex :T1 = nbval(A:A)

sub sommeuh()

t=cells(1,20).value 'nb de ligne
for i=1 to t ' de la ligne 1 à t
if cells(i,1)="x" then 'si la cellule At = "x" alors
p=p+cells(t,2) 'on ajoute à p la valeur de le cellule Bt
end if ' fin condition
next 'on continue
cells(1,4).value=P ' en D1 on met le résultat

end sub

 

[chris]

Merci pour ta reponse, mais je cherche à inserer la formule "somme-si"

 

[G.David]

Bon ne nous fachons pas

la fonction somme.si de la feuille de calcul est non traductionnée (faisons vivre le dictionnaire)
l'emploi est sumif par contre les objet range sont obligatoires pour définir les plages
d'ou

Sub Macro1()
'
' Macro enregistrée le 15/07/2004 par David

T = Application.WorksheetFunction _
.SumIf(Range("b39:B47"), "x", Range("c39:C47"))

Cells(47, 6).Value = T

End Sub
Cordialement
G.David