[VBA] Somme avec deux conditions

Bonjour tout le monde,

Depuis hier matin je cherche un moyen de créer un code sur VBA permettant de réaliser la tâche suivante :

Pour chaque cellule en colonne A ayant un résultat en-dessous de 100 et pour chaque cellule homologue en colonne B ayant une lettre "A" faire la somme des cases se trouvant en colonne C respectant ces deux critères. La somme devra se trouver en G2.

Voici le début de mon code :

Sub test()
  For J = 2 To 520
    If Sheets("feuil1").Range("A" & J) < 100 And Sheets("feuil1").Range("B" & J) Then

    End if
  Next J
End Sub

L'inconvénient c'est que je ne sais pas comment traduire le "faire la somme des cases se trouvant en C respectant ces deux critères. La somme devra se trouver en G2".

Sum ? Sumif ? Je ne vois pas comment les intégrer dans ma situation :s

En pièce jointe un fichier exemple avec des données typées manuellement pour que vous ayez un meilleur aperçu de ce que je recherche.

Quoi qu'il en soit, merci beaucoup pour l'aide que vous allez fournir

Bonne journée !

Bonjour

En fouillant sur le net j'ai vu que cette fonction en vba n'est pas pratique

Sub test()
Dim NbLg As Long

  NbLg = Range("A" & Rows.Count).End(xlUp).Row
  Range("H2") = Evaluate("SumProduct((" & Range("A2:A" & NbLg).Address & "<" & 100 & _
              ")*(" & Range("B2:B" & NbLg).Address & "= ""A"")*(" & Range("C2:C" & NbLg).Address & "))")
End Sub

Bonjour Banzai64,

Vous dites que cette fonction en VBA n'est pas pratique. Pourquoi ? :s

En tout cas elle fonctionne parfaitement, merci pour votre précieuse aide

Bonjour

Non je dis pas pratique en VBA mais avec Excel elle est très bien

Avec VBA la forme classique Application.WorksheetFunction.SumProduct n'est pas acceptée contrairement aux autres fonctions

Mon jargon Excel et VBA ne doit pas encore être assez développé pour comprendre ça ... :/

En tout cas ça fonctionne à merveille et je vous en suis très reconnaissant ^^