XL 2016 somme de cellule selon critere

cg1980

XLDnaute Occasionnel
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
 

Pièces jointes

  • test.xlsx
    8.9 KB · Affichages: 32

vgendron

XLDnaute Barbatruc
hello
pour le fun avec un tablo VBA : une facon parmi tant d'autres
VB:
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