Bonjour à tous

Qui peut me dire s'il est possible de faire la somme de chiffres selon la
couleur de leur police ?

Sans macro serait top
Par macro si impossible autrement

Merci de m'éclairer

CBR

Ok merci pour toutes ces pistes.
Je vais examiner tout cela dès que j'aurai 5mn.

Bon week-end à tous

CBR

Bonjour à tous

Merci JB , cette solution me va à merveille.

Bon Week-end tout le monde

CBR

_____________________________________________

"JB" <boisgontier***hotmail.com> a écrit dans le message de news:
309ef764-93b3-4cf1-a002-5bed1e756ede...oglegroups.com...
Bonsoir,

Function SommeCouleurTexte(champ As Range, couleurTexte)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Font.ColorIndex = couleurTexte Then
If IsNumeric(c.Value) Then temp = temp + c.Value
End If
Next c
SommeCouleurTexte = temp
End Function

Pour maj touche F9 ou maj immédiate:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

http://boisgontierjacques.free.fr/fi...uleurTexte.xls

JB
http://boisgontierjacques.free.fr/



On 3 avr, 19:10, "CBR" <nospam_...***free.fr> wrote:
> Bonjour à tous
>
> Qui peut me dire s'il est possible de faire la somme de chiffres selon la
> couleur de leur police ?
>
> Sans macro serait top
> Par macro si impossible autrement
>
> Merci de m'éclairer
>
> CBR