Bonjour. Essaie la macro suivante en changeant la valeur de colorindex suivant la couleur de ta police :
Sub test() Dim c As Range, Ctr As Double For Each c In Selection If c.Font.ColorIndex = 3 Then Ctr = Ctr + c.Value End If Next c MsgBox Ctr End Sub
Cordialement. Daniel "Philippe" a écrit dans le message de news: uI1qqAM%
Bonjour,
Comment obtenir la somme de plusieurs cellules par couleurs ? (par la couleur du texte de la cellule et non par le fond)
Merci d'avance
Philippe
JB
Bonjour,
Voici une fonction:
Dans le tableur: =SommeCouleur(A1:A10;3) pour l'écriture en rouge
Dans un module:
Function SommeCouleur(champ As Range, couleur As Integer) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Font.ColorIndex = couleur Then temp = temp + c.Value End If Next c SommeCouleur = temp End Function
Cordialement JB
Bonjour,
Voici une fonction:
Dans le tableur: =SommeCouleur(A1:A10;3) pour l'écriture en rouge
Dans un module:
Function SommeCouleur(champ As Range, couleur As Integer)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Font.ColorIndex = couleur Then
temp = temp + c.Value
End If
Next c
SommeCouleur = temp
End Function
Dans le tableur: =SommeCouleur(A1:A10;3) pour l'écriture en rouge
Dans un module:
Function SommeCouleur(champ As Range, couleur As Integer) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Font.ColorIndex = couleur Then temp = temp + c.Value End If Next c SommeCouleur = temp End Function
