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
