Discussion :

[parmi]

Non, tu dois utiliser 5 critères dans cet ordre
ta colonne à additionner, ta colonne de code, 40*, ta colonne de valeurs, <0

[Nutella14]

Parfait ! je tiens ma fonction testé en excel et impeccable, maintenant la partie vba !

en cherchant un peu j'ai trouvé la syntaxe d'un sumifs mais apparemment pas complétemement vu que cela ne marche pas

la formule excel

Code :

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

=SOMME.SI.ENS('2'!B1:B5;'2'!A1:A5;"40*";'2'!B1:B5;"<0")

la traduction vba

Code :

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

Sheets(1).Range("A10") = Application.WorksheetFunction.SumIf(Sheets(2).Range("B1:B5"), Sheets(2).Range("A1:A5") & "40*", Sheets(2).Range("B1:B5") & "<0")

marche pô testé aussi avec "=40*" mais toujours pas

[parmi]

Pas de &

Code :

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

Sheets(1).Range("A10") = Application.WorksheetFunction.SumIf(Sheets(2).Range("B1:B5"), Sheets(2).Range("A1:A5"), "40*", Sheets(2).Range("B1:B5"), "<0")