Sumproduct et V B A

[Baside]

Bonjour le Forum,

Est il possible de traduire cette formule de feuille en code V B A ?

SOMMEPROD((Feuil1!$A$1:$A$18=$D1)*(Feuil1!$B$1:$B$18))

D'avance, Merci.

Baside.

 

[PascalXLD]

Bonjour

Essaies ceci

Sheets('Feuil2').Range('A1').Formula = '=SUMPRODUCT((Feuil1!$A$1:$A$18=$D1)*(Feuil1!$B$1:$B$18))'

Bon courage

 

[Baside]

Bonsoir Pascal76, le Forum,

Merci beaucoup pour la réponse.

Mais ex:

Somme(A1:A20) se traduit en

Application.WorksheetFunction.Sum(Range('A1:A20')

Ce qui permet d'utiliser des variables, j'aurai aimé faire pareil mais avec Sumproduct.

Une idée ?

Merci, Baside

 

[Baside]

Bonsoir le Forum,

C'est un up avant d'atteindre les profondeurs du forum.

Baside

 

[PascalXLD]

Bonjour

Bon je crois que je me suis trompé dans le sens de ta question

Peut-être ceci alors

dim x as byte
dim MonNombre as Double

for x=1 to 18
if sheets('Feuil1').range('A'& x)=sheets('Feuil1').range('D1') then
MonNombre= MonNombre + sheets('Feuil1').range('B'& x)
end if
next
msgbox MonNombre

Bon courage

 

[Baside]

Bonjourr Pascal76, le Forum,

Je te remercie pour la réponse, c'est dommage que cette fonction ne soit pas directement applicable en VBA.

Bonne journée, Baside

 

[Baside]

Re Bonjour Pascal76, le Forum,

Avec ta première solution et des cellules relais, je peux me débrouiller, je pense

Baside