A l'aide

Stéphanie avait soumis l'idée :

Bonjour,

Je viens vers vous car je ne parviens pas à trouver la formule de calcul qui
me permettrait de compter le nombre de cellules coloriées.

9 h-10 h
10 h-11 h
11 h-12 h
12 h-13 h
13 h-14 h
14 h-15 h
15 h-16 h
16 h-17 h
17 h-18 h
18 h-19 h


Une cellule de couleur = 1 unité

Merci de votre aide précieuse

Très cordialement,

Stéphanie

C'est pas tres clair ta demande :-?

Bonjour Stéphanie,



Voici une façon de faire :

Copie cette fonction dans un module standard :


Cette fonction compte le nombre de cellule affichant le
texte d'une certaine couleur, Si tu veux obtenir la même chose
pour la couleur de fond des cellules, modifie cette ligne de code
dans la fonction
If c.Font.ColorIndex = Couleur Then
Par
If c.Interior.ColorIndex = Couleur Then

'----------------------------------
Function SommeCouleur(champ As Range, Couleur As Integer)
Application.Volatile
Dim c As Range, Temp As Double
Temp = 0
For Each c In champ
If c.Font.ColorIndex = Couleur Then
Temp = Temp + c.Value
End If
Next c
SommeCouleur = Temp
End Function
'----------------------------------

Dans la cellule, tu inscris : =SommeCouleur(A1:B10,3)
la fonction va additionner toutes les cellules de la plage A1:B10
qui ont l'index de la police de caractère égale à 3 (rouge dans
un workbook standard)

Les index des couleurs varient entre 1 et 56


Attention, si tu modifies le format de certaines cellules, la fonction ne
se met pas à jour automatiquement, tu dois utiliser la touche F9 ou
attendre que la feuille se recalcule.


Salutations!


"Stéphanie" <cfp.jallais@wanadoo.fr> a écrit dans le message de news: 43946785$0$20163$8fcfb975@news.wanadoo.fr...
Bonjour,

Je viens vers vous car je ne parviens pas à trouver la formule de calcul qui
me permettrait de compter le nombre de cellules coloriées.

9 h-10 h
10 h-11 h
11 h-12 h
12 h-13 h
13 h-14 h
14 h-15 h
15 h-16 h
16 h-17 h
17 h-18 h
18 h-19 h


Une cellule de couleur = 1 unité

Merci de votre aide précieuse

Très cordialement,

Stéphanie

Bonjour Stéphanie,

A ma connaissance (mais bon, ça ne va très loin...), on ne peut pas
récupérer directement par formule le code couleur d'une cellule. Pour
cela, VBA obligatoire...Un truc du genre ci-dessous à adapter à ta feuille :
Sub Couleur()
For i = 0 To 56
For Each Cellule In range("A1:D20")
Cible="E" & i
If Cellule.Interior.ColorIndex = i Then
range(cible).value=range(cible).value+1
end if
next cellule
next i
end sub

C'est juste une pîste à explorer...Reviens si tu veux plus de détails..

Bonjour,

Je viens vers vous car je ne parviens pas à trouver la formule de calcul qui
me permettrait de compter le nombre de cellules coloriées.

9 h-10 h
10 h-11 h
11 h-12 h
12 h-13 h
13 h-14 h
14 h-15 h
15 h-16 h
16 h-17 h
17 h-18 h
18 h-19 h


Une cellule de couleur = 1 unité

Merci de votre aide précieuse

Très cordialement,

Stéphanie

--
@+ thierryp