Microsoft 365 Somme des cellules de couleur jaune

[Eric Dé]

Bonjour le Forum,

Je souhaiterais obtenir la somme des cellules de couleur jaunes (simulée en orange dans la colonne F) sur chaque ligne de mon tableau.

Est-ce faisable ?

Merci d'avance pour vos idées.

Cordialement.
Eric

 

[Nain porte quoi]

Hello,,

une chose à savoir pour commencer : le changement de couleurs ne génère pas de recalcul ! (une couleur n'est pas une donnée).
Il existe plusieurs sujet dans ce forum avec des macros

Résultats de la recherche pour la requête: somme couleur

excel-downloads.com

 

[sylvanu]

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

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.

 

[Eric Dé]

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

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.

Merci sylvanu,

Je vais ajouter une difficulté : si la couleur jaune des cellules est le résultat d'une mise en forme conditionnelle, cela ne semble pas fonctionner.

Y a-t-il un ajout à faire à tes lignes de codes ?

Merci d'avance.