recensement de valeur

[CHRIS,]

bonjour a tout le forum
pouvez vous m'aider je cherche une formule en V B A qui dans un tableau excel puisse additionner un ensemble de valeur chiffre ecrit en rouge suite a mise en valeur conditionnel ( ex valeur saisie <63 se colore en rouge)

 

[Robert]

Salut Chris, salut le forum,

Chris, je n'ai pas réussi à utiliser la mise en forme conditionnelle mais j'ai utilisé la condition.

Public Sub somme()
a = 0
For Each cel In UsedRange
If cel.Value < 63 Then
a = a + cel.Value
End If
Next
b = MsgBox("la somme est : " & a)
End Sub

À plus,

Robert