additionner des couleurs

[david]

Salut le forum

peut-on additionner des couleurs à l'aide d'une formule
comment pour les lettres
ex: NB.SI(a2:h25;"dav")
mais je voudrais le faire avec des couleurs
cela est t-il possible

j'ai mis un petit exemple

merci d'avance

A+ david

 

[JCA06]

Salut David, le Forum,

C'est tout à fait faisable mais uniquement en vba, en tout cas d'après ton modèle.

Le principe est le suivant : après avoir défini la plage à tester (range), tu passe sur chaque cellule et tu incrémente des compteurs (Rouge = Rouge + 1) si la couleur de la cellule (.Interior.ColorIndex) correspond à celle que tu veux compter.

A plus

 

[JCA06]

Rebonjour David, le Forum,

J'ai voulu profiter de ton exemple pour essayer de rédiger le code dont tu avais besoin, mais une fois de plus je m'aperçois que je suis encore un gros nul ! Bon, je m'en suis tout de même tiré :

Option Explicit

Sub Compte_couleur()

Dim i As Integer, j As Integer, C As Long, C1 As Long, C2 As Long
Dim Nb1 As Integer, Nb2 As Integer

C1 = Range("K5").Interior.ColorIndex
C2 = Range("K6").Interior.ColorIndex

For i = 2 To 25
For j = 1 To 8
C = Cells(i, j).Interior.ColorIndex
Select Case C
Case C1
Nb1 = Nb1 + 1
Case C2
Nb2 = Nb2 + 1
End Select
Next j
Next i

Range("L5").Value = Nb1
Range("L6").Value = Nb2
End Sub

Ce qui m'énerve, c'est que je ne suis pas arrivé à rédiger ce code avec un If...Then...Elseif...Endif
J'avais essayé comme ceci, à la place du bloc Select Case...End Select :
If C = C1 Then Nb1 = Nb1 + 1
ElseIf C = C2 Then Nb2 = Nb2 + 1
End If

Et ça ne fonctionne pas ! Et je n'arrive pas à comprendre pourquoi !!!!

Si quelqu'un peut m'expliquer, avant que je renonce aux If... qui sont pourtant bien pratiques..

A plus

 

[david]

salut JCA06 et le forum

merci pour ta formule qui me va très bien.
desolé pour if mais je ne serais t'aider

a+ david et encore merci