Somme ligne avec plusieurs conditions VBA

bonjour

je souhaite effectuer la somme de la colonne INF_Value avec les conditions des valeurs en feuille2

STA_SiteNumberINF_NumberInStation
1441
1442
1443
1444
1445
1446
1447
1448
1621
1622
1623
1624
1625
1626
1627

la somme d es valeurs de la colonne D (INF_Value ) doivent avoir comme conditions sur la ligne STA_SiteNumber 14 et INF_NumberInStation 41 etc

merci encore

5cpt-btu.xlsm (16.74 Ko)

Bonjour

Un essai à tester, si j'ai bien compris.

8cpt-btu-v1.xlsm (28.15 Ko)

Bye !

bonjour

votre code fonctionne parfaitement

j'avais fait celui ci , quelle est la différence

Sub MacroBATEAST()
Dim i As Long
Dim Sh As Worksheet

Set Sh = ThisWorkbook.Sheets("Feuil6")
Set Sb = ThisWorkbook.Sheets("Feuil7")
Sb.Range("f2").Clear
Sb.Range("e2").Clear
For i = 2 To Sh.Range("A" & Rows.Count).End(xlUp).Row
 For j = 2 To Sb.Range("A" & Rows.Count).End(xlUp).Row
    If Sh.Range("b" & i).Value = Sb.Range("a" & j).Value And Sh.Range("c" & i).Value = Sb.Range("b" & j).Value Then

        Sb.Range("e2").Value = Sb.Range("e2").Value + Sh.Range("e" & i).Value
    End If
 Next j
 Sb.Range("F2").Value = Sb.Range("F2").Value + Sh.Range("e" & i).Value
Next i
TextBox4 = Sb.Range("e2").Value
TextBox3 = Sb.Range("f2").Value - Sb.Range("e2").Value
End Sub
Rechercher des sujets similaires à "somme ligne conditions vba"