compter les cellules colorées (nouveau)

[tenere90]

bonsoir à tous,
j'ai eu beau chercher je n'ai pas trouvé mon bonheur , aussi je vous expose mon problème.

Je souhaite compter automatiquement des cellules colorées par ligne, quelque soit la couleur et quelque soit le texte qu’il y a à l’intérieur. j'ai pour l'instant 3 couleurs. s'il est possible de prévoir quelques couleurs de plus.

je vous joins un fichier

je suis sous xp pro et excel 2003

d'avance merci

 

[klin89]

Bonsoir tenere90

Si j'ai bien compris, dans un module standard :

Function SommeCouleurFondRef(champ As Range)
  Application.Volatile
  Dim c, temp
  temp = 0
  For Each c In champ
    If c.Interior.ColorIndex >= 1 Then
    temp = temp + 1
    End If
  Next c
  SommeCouleurFondRef = temp
End Function

La fonction retranscris dans ta cellule :

=SommeCouleurFondRef(C4:AG4)

Klin89

Pour info : Index du Blanc = 2, à ne pas confondre avec "aucune couleur"

 

[tenere90]

Re : compter les cellules colorées (nouveau)

je pense que cela correspond exactement à mon problème.
je cofirme demain.

un grand merci à "klin89".
bonne nuit

 

[tenere90]

Re : compter les cellules colorées (nouveau)

Essai transformé,

Merci à "klin89".

donc le problème est résolu.