Additionner des valeurs en rouge uniquement

[gilysa]

J'aimerais additionner des valeurs "textes uniquement si elles sont en rouge ou en gras ...
Merci d'avance pour vos reponses

gilles

 

[PhiBou]

Salut gilysa, gilles, le Forum

Un code à mettre dans le WorkSheet de la feuille de travail.
J'ai mis C1:C22 pour la plage à sommer et C23 pour la plage résultat.
Tu n'auras qu'à modifier ces valeurs.

La somme 'conditionnelle' se recalcule que lorsqu'une valeur de la plage est ajoutée ou changée. Par contre, mettre en rouge ou en gras une valeur de cette plage ne rafraîchira pas le résultat, il te faudra retaper une valeur pour valider.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range, Cel As Range
Dim Som As Long
Set Plage = Range("C1:C22")
Som = 0
Set Cel_Select = Application.Intersect(Plage, Range(Target.Address))
If Cel_Select Is Nothing Then
Exit Sub
Else
For Each Cel In Plage
If Cel.Font.ColorIndex = 3 Or Cel.Font.Bold = True Then
Som = Som + Cel.Value
End If
Next Cel
End If
Range("C23") = Som
End Sub

Bonne journée

PhiBou