Microsoft 365 Somme des cellules de couleur jaune

sylvanu à dit:

Bonjour eric, Nain porte quoi,
Une solution possible en vba avec cette fonction perso :

VB:

Function SommeJaune(Plage As Range)
Application.Volatile
For Each c In Plage
    If Range(c.Address).Interior.Color = vbYellow Then SommeJaune = SommeJaune + Range(c.Address).Value
Next c
End Function

La syntaxe est : =SommeJaune(A1:E1)
Le recalcul se fera sur un appui d' Entrée.

Cliquez pour agrandir...