je dois rentrer dans une cellule : =SommeCellulesCouleur(B2:T27;3997500) pour avoir le résultat ?
Tu dois :
> Ouvrir une fenêtre VBE : Alt + F11
> Insertion / Module
> Copier/Coller le code fournit plus haut (attention, je l'ai modifié)
> Fermer la fenêtre VBE,
> Dans une cellule, saisir : =SommeCellulesCouleur(B2:T27;3997500)
> Valider par Entrée
Code :
Public Function SommeCellulesCouleur(plage As Range, Couleur As Long) As Double
Application.Volatile
Dim C As Range, S As Double
For Each C In plage
If C.Interior.Color = Couleur And Not IsEmpty(C) Then
If IsNumeric(C.Value) Then
S = S + C.Value
End If
End If
Next C
SommeCellulesCouleur = S
End Function