XL 2016 somme de cellule selon critere

[cg1980]

Bonjour
Dans le fichier ci joint, j'aimerais utiliser un code VBA qui me permet de faire la somme des valeurs en colonne D qui corresponde à "F301" en colonne C
Merci d'avance

 

[vgendron]

bonjour
pas besoin de vba, une formule suffit avec Sommeprod
voir PJ

 

[gosselien]

Bonjour tous,

une autre manière 🙂

P.

 

[cg1980]

merci beaucoup de votre aide. Mais en fait j'aurais voulu le faire via VBA a titre d'exercie. Je l'ai fait d'une facon, mais pas vraiment efficiente.

 

[vgendron]

hello
pour le fun avec un tablo VBA : une facon parmi tant d'autres

Sub sommer()
Dim tablo() As Variant

tablo = Range("C5:D26") 'on place le tablo excel dans un tablo vba
code = Range("G5") 'récupère le code à traiter
somme = 0 'initialisation
For i = LBound(tablo, 1) To UBound(tablo, 1) 'pour chaque ligne du tablo
    If tablo(i, 1) = code Then somme = somme + tablo(i, 2) 'si la première colonne = code, alors, on ajoute la seconde colonne à la somme
Next i
Range("G6") = somme 'on recopie le résultat
End Sub