Somme sous plusieurs conditions

Bonjour,

Je suis actuellement en train de réaliser une macro mais je bloque sur la partie calcul.

Mon classeur est composé de 4 feuilles : Synthese, DavidJ, DavidC et Soldes.

J'ai deja une macro qui copie les lignes qui contiennent les initiales de la personne dans l'onglet de la personne concernée.

Ici, DJ pour DavidJ et DC pour DavidC.

Cette partie de la macro fonctionne.

La ou je bloque et ce que je souhaite, c'est une macro qui me fasse une somme sous conditions pour chaque personnes dans la feuille Soldes.

Exemple : Dans la feuille de DavidC, pour chaque ligne,

1- si les cellule G et H sont vides alors on additionnera la valeur de la cellule M

2- Si la cellule G ou la cellule H est vide, on additionnera la moitier valeur de la cellule M

3- Si la cellule G et le cellule H contiennent une date, je n'additionne pas.

Enfin le résultat de la somme des valeurs des conditions 1 et 2 apparaitra dans la feuille solde (ici en B3 pour DavidC)

En espérant avoir été assez précis, merci d'avance

Bonjour,

à tester :

Sub test()
Worksheets("Davidc").Activate
Dim resultat As Long
For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
  If Range("G" & i) = "" And Range("H" & i) = "" Then
    resultat = resultat + Range("M" & i)
  ElseIf Range("G" & i) = "" Or Range("H" & i) = "" Then
    resultat = resultat + Range("M" & i) / 2
  End If
Next i
worksheets("Soldes").range("B3") = resultat
End Sub

Impeccable !

Merci beaucoup pour votre grande réactivité

de rien =)