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

 

[fanch55]

RE

Oui si la couleur ne vient pas d'une MFC...

Le displayformat fait référence à la couleur provenant d'une MFC , cela fonctionne .

 

[fanch55]

Le displayformat fait référence à la couleur provenant d'une MFC , cela fonctionne .

Mea culpa: j'ai voulu retester la macro, cela me renvoit systématiquement #Valeur.
Incompréhensible, cela fonctionnait lors de mon premier post .
La solution de @job75 fonctionne correctement

 

[chris]

Bonjour le forum,

DisplayFormat fonctionne dans une Function si on évalue cette fonction par Evaluate :

Function SommeJaune(Plage As Range)
Application.Volatile
Dim c As Range
For Each c In Plage
    If IsNumeric(c) Then If Evaluate("ValeurCouleur(" & c.Address() & ")") = vbYellow _
        Then SommeJaune = SommeJaune + CDbl(c)
Next
End Function

Private Function ValeurCouleur(R As Range) As Long
ValeurCouleur = R.DisplayFormat.Interior.Color
End Function

A+

Je ne vois aucune MFC dans l'exemple fourni (demande initiale) mais effectivement cela fonctionne

 

[Eric Dé]

Bonjour,
Merci à tous pour vos solutions et commentaires.
Super travail !
J'ai retenu la solution de Job75 qui fonctionne bien. (good job !!! 🙂 )
Bonne journée à tous !

 

[djidji59430]

C'est quand même malheureux, alors qu'on demande instamment un fichier, que le demandeur se refuse à l' envoyer. Moi, à partir du post #5, vu sa mauvaise volonté, j'aurais arrêté.......J'admire votre foi en l'espèce humaine (vous y avez cru jusqu'au bout!)

Crdlmt

 

[chris]

Bonjour

C'est quand même malheureux, alors qu'on demande instamment un fichier, que le demandeur se refuse à l' envoyer. Moi, à partir du post #5, vu sa mauvaise volonté, j'aurais arrêté

Dans la plupart des cas, moi aussi mais ici c'est une demande pouvant s'appliquer à toute MFC

Cependant le demandeur étant arcbouté sur la couleur plutôt que la condition et ne voulant pas donner d'infos j'échangeais surtout avec les autres participants.

Finalement la solution de job75 évitant la solution Sub que je connaissais, on a plutôt tous gagner à connaître cette nouvelle possibilité...