Condition sur les couleurs dans les cellules

[Charles]

Bonjour tout le monde !

J'espère ne pas être hors contexte en vous adressant cette demande qui concerne davantage Excel que le VB.

J'aimerais faire des NB.SI et SOMME.SI avec des conditions sous les couleurs. J'utilise généralement un petit code avec les
Font.ColorIndex ... mais ça serait tout de même plus pratique d'utiliser ça directement dans les cellules.
Est-ce possible et comment ?

Je vous remercie par avance pour vos réponses et vous souhaite un très bon week-end.

Cordialement,

Charles

 

[sab]

bonjour Charles,

si les couleurs proviennent de la MEFC (mise en forme conditionnel), il faut reprendre les même condition dans la formule.

s'il proviennent de la barre d'outils "Mise en forme", tu pourrais utiliser une fonction personnalisé.

Function Comptecouleur(plage As Range, couleur As Integer)
Application.Volatile
For Each c In plage
If c.Font.ColorIndex = couleur Then
Comptecouleur = Comptecouleur + 1
End If
Next
End Function

isabelle

 

[Charles]

Merci Isabelle.
Je vais voir ce que ça peut donner !

Désolé pour le délai de réponse , j'ai pu consulter aujourd'hui seulement.

Bonne journée,

Charles