Bonsoir,
1) tu crées une fonction couleur(vcell) qui te renvoie le colorindex de la font de la cellule :
Option Base 1
Function couleur(vcell As Range)
ReDim tablo(vcell.Count): i = 1
For Each vvcell In vcell
tablo(i) = vvcell.Font.ColorIndex
i = i + 1
Next
couleur = WorksheetFunction.Transpose(tablo)
End Function
2) tu utilises ensuite cette fonction dans une formule excel classique du genre :
G3=SOMME(SI(couleur($B$3:$B$13)=couleur(F3);$B$3:$B$13;0))
où F3 contient du texte de la couleur dont tu veux additionner les valeurs dans ton tableau B3:B13
ou encore :
G3=SOMMEPROD((couleur($B$3:$B$13)=couleur(F3))*$B$3:$B$13)
la première formule est matricielle et il faut valider par CTRL+MAJ+ENTER.
la seconde se valide par ENTER
cordialement